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PROLOGO 


Si el proceso de desarrollo de la avlación en los últImos 
años hublese sido paralelo al de la industria de los 
ordenadores, hoy sería posible volar por un precio inferlor 
a 3000 Ptas, en menos de media hora, de Frankfurt a Toky0.+ 


A causa de este desarrollo tan importante, los 
microordenadores han conquistado el mundo y, hoy por hoy, 
nuestra vida es inimaginable sin microprocesadores. 


Clive Sinclair ha tenido una gran participación en la 
expansión de los ordenadores, basada en el desarrollo del 
ZX-81 y ZX Spectrum, pues ambos permiten una introducción 
económica, pero rentable, en este campo. 


Este libro va dirigido a todos los actuales y futuros 
propietarios de un ordenador Spectrum, que ya estén un poco 
familiarizados con ordenadores. Estos conocerán ya los 
términos elementales de BASIC y posiblemente hayan creado 
algunos programas, deseando ahora sacar más provecho de su 
ordenador . 


Este libro contiene muchas sugerencias, consejos, trucos y 
programas, los cuales pueden resumirse en forma de 
blblioteca, y así facilitar la creación de programas 
propios. 


Después de algunos programas cortos hemos desarrollado un 
primer programa de juego más largo, en el cual lo más 
interesante no es matar el mayor número de enemigos, sino 
solucionar un problema de forma inteligente. 


En el siguiente programa se aprovechará la capacidad gráfica 
del Spectrum. Cuando esté terminado, la pantalla de la 
televisión, no sólo mostrará un mapamundi, sino también la 
situación del sol, así como los sectores de día y noche en 
la tierra. 


Al surgir los Microdrives como memoria de masa económica y 
rápida, las poslbilidades de aplicación de Spectrum se han 
ampliado considerablemente, sobre todo tenlendo en cuenta 
que muchos fabricantes ofrecen una amplia gama de accesorios 
(_ sobre todo teclados). Sobre aparatos adicionaies se 
informará amp!lamente. 


Por lo demás se desarrollarán ideas y programas, los cuales 
traen conslgo una considerable simplificación del trabajo, 
aún en empresas pequeñas. Estos programas son de 
administración de volumen de ventas, administración de 
almacén, un fichero de cllentes y un programa de gráficos. 
Además, el Spectrum se utillza como tablón de anuncios: 
palabras y textos de cualquier tipo pueden producirse en la 
pantalla de diferentes tamaños y colores. 


Las explicaciones de este libro van destinadas, de una 
parte, a ayudar e impulsar al lector dentro de este campo y, 
de otra, a ofrecerle satisfacción y dIversión. 


CAPITULO 1: 
ASPECTOS GENERALES DEL SPECTRUM 


Introducción 


El ZX Spectrum ofrece la posibilidad de adquirir de forma 
económica un ordenador versátil y de conseguir, de este 
modo, no sólo divertirse con juegos, sino aprender *''un 
montón'' sobre ordenadores. 


Si Ud. es un principlante, le recomendamos una lectura 
intensa del manual de manejo del Spectrum ya que, aparte de 
estar escrito de forma clara y concisa, contiene importantes 
informaciones (y no sólo para el ''novato''). 


En este libro queremos echar un vistazo al Spectrum, con el 
objeto de ser completo, de manera que "ascendientes" del ZX 
81 se situen rápidamente. 


El. corazón, o mejor dicho el cerebro, del Spectrum es el 
procesador Z80, producido por la empresa Zilog. Este 
procesador de 8 bits, puede direccionar 64 KByte de memorla. 
16 KByte de esta memorla están ocupados por el sistema 
operatlvo, el cual está alojado en una ROM. 


¿Qué es un sistema operativo? ¿Que es una ROM? El sistema 
operativo es un programa, o sea software, que tiene el 
objeto de relacionar el procesador con el mundo exterior. El 
mundo exterior en este caso está representado por el usuario 
del ordenador, así como por otros aparatos como son el 
televisor o el casette, pero también el teclado del mismo 
ordenador. De alguna forma, el Spectrum tiene que saber lo 
que queremos de él. 


Esto se lo comunicamos pulsando diversas teclas. El sistema 
operativo puede reconocer el significado de cada entrada y 
elaborarla. Como el usuario debe aplicar ciertas normas al 
reallzar las entradas, el programa puede decidir si en este 
momento se está escribiendo un programa, o se trata de un 
comando a cumplir directamente. 


SI se trata del primer caso, hay que conseguir que este 
programa se almacene en memoria trabajando después con él 
según las necesidades. El lenguaje, con el cual programamos 
al Spectrum, se llama BASIC. Se trata.de la abreviación de 
"Beginners Allpurpose Symbolic Instruction Code". Pero 
desgraciadamente, el procesador no entiende este lenguaje. 
El. sólo entiende su propio lenguaje máquina. Por ello, un 
programa escrito en BASIC debe ser traducido. 


También este lenguaje - llamado Interprete - está incluído 
en el Spectrum y se puede considerar como parte del sistema 
operativo. En muchos ordenadores el sistema operativo 
propiamente dicho y el Interprete son cosas separadas, pero 
en el Spectrum van estrechamente ligadas. 


Estos programas son, naturalmente, muy importantes para el 
usuario, y deben formar parte inalterable del ordenador. Por 
ello, están depositados en una parte de la memoria que sólo 
puede ser utilizada para su lectura. De aquí el nombre 
''Read Only Memory'', o abreviado ROM, lo que significa 
'tsólo para leer'!, 


Pero si toda la memoria del ordenador se utilizara 
únicamente para leer, no podríamos escribir programas 
propios en la memoria, y el aparato no sería un verdadero 
ordenador. Por este motivo existe un segundo tipo de 
memoria, que puede ser ocupado y borrado a voluntad. Esta 
memoria se denomina ''Random Access Memory'' o abreviado 
RAM. 


En el Spectrum los programas en el ROM ocupan 16 KByte. Para 
la memoria RAM quedan libres hasta 48 KByte. De éstos, unos 
40,5 KByte se reservan para la programación en BASIC. Se 
inician a partir de la dirección 23685. Las direcciones 
desde 16385 hasta 23685 se necesitan para la memoria de 
pantalla, variables de sistema y cosas similares. 


Ya que el Spectrum dispone de una resolución de 256 por 176 
puntos, y cada matriz de 8 x 8 puede disponerse con un 
atributo de color, se utilizan 6144 direcciones para la 
memoria de la pantalla, y otras 704 para la información de 
color» 


El. repertorio de símbolos del Spectrum está compuesto por 
256 símbolos, cuyos códigos están numerados desde O hasta 
255. Los primeros 128 símbolos corresponden en general a la 
Norma ASCI|. Los símbolos de los códigos desde 165 hasta 255 
representan los comandos de BASIC disponibles en el 
Spectrume 

Esto permite introducir los comandos pulsando únicamente una 
tecla o una combinación de teclas. Esto no es únicamente 
ventajoso por la poca similitud del teclado del Spectrum con 
el de una máquina de escribir, sino que tiene además otras 
dos ventajas: Por una parte, uno no se puede equivocar al 
introducir comandos y por otra, estos comandos ( también 
llamados token) necesitan solamente un Byte de memoria. 
Otros ordenadores necesitan frecuentemente un Byte para cada 
letra. 


¿Cómo sabe el cerebro del Spectrum, el Z80, qué tecla ha sido 
pulsada y lo que esto signlfica? Todas las teclas están 
interconectadas internamente en forma de red, compuesta de 5 
Xx 8 líneas. Una tecla corresponde exactamente a una 
combinación de estos grupos de líneas. Esta combinación se 
transmite a um Chip concreto, la ULA. Esto es una 
abreviación de 'Uncommitted Logical Array'. Este chip 
determina de qué tecla se trata. 


En las variables del sistema, el Z80 encuentra la 
información sobre el modo actual de funcionamiento de aquél, 
es decir, la función que una determinada tecla tiene en este 
momento. Cada tecla está ocupada con diferentes funciones. 
Cuando se ha determinado la función, es cuando esta 
información se transmite a la pantaila. 


No sólo es posible programar el Spectrum en BASIC. También 
es factible trabajar con el lenguaje máquina si ello se 
domina. 

De todas formas, en este libro no vamos a centrarnos en el 
lenguaje máquina, de modo que nos decicaremos al Basic 
recalcando, antes que nada, las diferencias esenciales entre 
el buen ZX 81 y el Spectrum. Esto reducirá el +Iempo de 
introducción, tanto al que ''asciende'' del ZX 81, como a 

que cambia de sistema. 


Del ZX 81 al ZX Spectrum 


El. que 'asclende' del ZX 81 al Spectrum, no tendrá grandes 
problemas con el nuevo ordenador, ya que está famillarizado 
con la filosofía de Sinclalr. Unicamente debe acostumbrarse 
a que tlene una aplicación más amplla del BASIC. 


A diferencla al ZX 81, aquí es posible introducir varios 
comandos en una línea, o separados por un doble punto en el 
modo de funcionamiento directo. Ya que en el Spectrum no se 
activa el Z80 para mantener la pantalla como sucede en el 
caso del ZX 8l, no existe la diferencia entre 'SLOWN' y 
'FAST'. El Spectrum trabaja slempre en 'FAST!'. 


Tampoco es necesario activar el comando ''SCROLL'' desde el 

BASIC. Cuando la pantalla está llena, pasa automáticamente a 

preguntar ¿'SCROLL'?, tras lo cual se efectúa la salida 
después de pulsar cualquier tecla. Sl se quiere dar la orden 

'SCROLL', también se puede realizar a través de una rutina 

ROM (RAND USR 3282). 


Debido a la mayor resolución gráfica del Spectrum, hay que 
tener en cuenta las diferencias en la orden 'PLOT', El 
comando 'UNPLOT" no exlste en ei Spectrum, pero sf en cambio 
una serie de órdenes gráflcas que no se encuentran en el ZX 
81. ( Hay una |Ilsta completa de todos los comandos BASIC con 
aclaraciones en el apéndice). 


En el Spectrum existen menos sTmbolos gráficos definidos que 
en el ZX 81, pero se dispone de 21 caracteres, que pueden 
definirse a voluntad y disponer de ellos libremente. También 
es posible, con un pequeño truco, definir un juego de 
caracteres completamente nuevo, o utilizar varlos juegos de 
caracteres paralelamente. 


Trataremos de nuevo este tema en el tercer y sobre todo en 
el cuarto capítulo, cuando desarrol lemos una rutina, con la 
cual, el Spectrum es capaz de editar 64 símbolos por línea 
sobre la pantalla. 


El. Spectrum utlllza, en contraposición al ZX 81, el códIgo 
ASCIl. 


En el ZX Spectrum es posible rebajar la RAMTOP a voluntad 
por medio de la orden CLEAR, Indicando detrás el valor 
decimal máximo que se debe alcanzar con el BASIC. Los 
sImbolos definidos por el proplo usuarlo, los UDGs, están en 
un campo protegidos del NEW. 


La velocidad, con la cual se memorlzan programas en el 
casette, es 6 veces superlor al ZX 81. Aparte de ello, el 
proteger los programas es mucho más sencillo, y el proceso 
SAVE puede ser comprobado con el comando VERIFY. De esta 
manera se excluye en lo posible la pérdida de datos. Los 
programas pueden ser protegidos con LINE lo cual conduce, al 
cargar un programa, a una ejecución automática que se 
Inlcila en la correspondlente línea. Al cargar, el Spectrum 
escribe los nombres de los programas sobre la pantalla. 


Además de los ocho colores de los que dispone el Spectrum, 
también existe algo para el ofdo. Con el comando 'BEEP'", 
puede emitir sonidos. Pero al determinar este comando no 
estuvieron presentes nl Pink Floyd ni la Filarmónica de 
Viena. Pero a pesar de todo, con un poco de empeño, se 
pueden conseguir 'ruldos' bastante interesantes. Incluso en 
un programa de ajedrez es posible emitir sonidos que tienen 
clerta similitud con el habla humana. 


Con el comando SCREEN$, es posIble en el* Spectrum, memor | zar 
en casette el contenido completo de la pantalla , aún cuando 
se trate de un gráfico con alta resolución. Esto es posIble 
porque, aparte de programas en BASIC, el Spectrum es capaz 
de memorizar y de cargar Bytes. 


El. comando SAVE  ''nombre'' SCREEN$ no signiflca otra cosa 

" que SAVE  ''nombre''códlgo 16384,6912. A partir de la 
dirección 16384, se encuentra un fichero de pantalla de una 
longitud de 6912 Bytes. Este es, a diferencla del ZX 81, un 
fichero de longltud flja. 


Pero la orden SCREENS tamblén puede aplicarse de otra forma. 
Si se le provee con dos argumentos, como son el número de 
línea y el número de columna, se obtlene como resultado el 
signo que se encuentre en la pantalla en este punto. Una 
función similar se puede reallzar con POINT (línea, 
columna). Con esto se puede preguntar, si un Plxel tiene en 
este momento el color de fondo o el color de primer plano. 
En este caso, la línea y la columna representan los valores 
del sistema gráflco, o sea, números entre O y 255. 


Tamblén se pueden introducir números en código binario con 
el comando BIN. Asf, con el comando PRINT BIN 00000100 el 
ordenador responde con el valor 4. Esta posibilidad es 
bastante cómoda cuando se quieren definir sTmbolos. Se 
dibuja el símbolo sobre un pautado de 8 x 8, y se Introduce 
un l en las partes determinadas. Así se suprime la 
transtormación a números decimales, lo cual significa un 
trabajo muy laborioso cuando hay muchos sfmbolos. 
Concretaremos el método con un pequeño ejemplo. Queremos 
definir la S de Sinclalr, para lo cual se introducirá: 


BIN 00000000 
BIN 11111111 
BIN 10000000 
BIN 10000000 
BIN 11111111 
BIN 00000001 
BIN 00000001 
BIN 11111111 


en las corrrespondientes memorlas, por ejemplo USR ''a'' 
hasta USR  '"a+7"'., Print USR "a" representa entonces un 
slgno de la forma correcta. 


En el Spectrum es poslble memorizar datos con órdenes DATA y 
leerlos con READ. Por medio de RESTORE, es posible fljar la 
línea a partir de la cual se ha de leer. 

Ya que la ROM de 16 KByte es aún más potente que en el ZX 
8l, se encuentran las variables del sistema en otros 
sectores de la memoria. Las posibilidades y las variables de 
sltema que se ofrecen a través de PEEK y POKE, serán 
tratadas en el capftulo tercero. 


Exterlormente hay, naturalmente, algunas diferencias entre 
el ZX 81 y el Spectrum. Lo más notable es el teclado, que 
alegrará al propietario de un ZX 81, mientras que los 
propietarios de otros ordenadores no tendrán para el mismo 
más que una sonrlsa despectiva. Pero con el Spectrum Plus, 
este problema habrá quedado solucionado. 


Las posibilidades de ampllación en el Spectrum, dentro de la 
empresa Sinclair, son bastante amplias. Con el Interface 1 y 
los Microdrives se puede ampllar el sistema de tal manera, 
que no debe temer comparaciones con sistemas más caros. Con 
los Microdrives se dispone de un slstema de memoria 
económico y relatlvamente rápldo (más rápido que algunos 
sistemas de diskettes). A través de la conexlón RS 232 es 
posible conectar muchos tipos de Impresoras, Igualmente lo 
es la conexión a otros ordenadores, directamente o a través 
de un Modem. Además existe la pecullaridad de una red local, 
en la cual se pueden interconectar hasta 64 Spectrum ( y 
también Sinclalr QLs). De estos temas se tratará en capítulo 
séptimo. 


CAPITULO 2: 
CONSEJOS PARA LA PROGRAMACION EN BASIC 


Aspectos generales 


BASIC es la abrevlación de Beginners Allpurpose Symbol Ic 
Instruction Code, o sea, Códlgo General Símbollco para 
Principiantes. Este lenguaje iba incialmente dirigido hacla 
los novatos. Pero como todos los demás lenguajes, también 
BASIC se ha Ido perfeccionando, y las versiones que se 
aplican hoy en dlversos ordenadores pequeños se caracter!lzan 
por su gran flexibilidad. 


Sin duda alguna, se puede apllcar el BASIC para la solución 
de muchos programas complejos. Cuanto más amplio sea un 
programa, mayor es la posibilidad de cometer errores, y 
mayor debería ser la preparación previa para la elaboración 
de un programa. Es necesarlo, después de pasar la fase de 
"programar a lo loco'', llegar a la máxIma autodisciplina 
al programar». 


Intentar programar en uno u otro sentldo, sin determinación, 
no trae consigo más que un resultado desastroso. No hay cosa 
más desagradable que volver a comprobar por trigésima vez un 
programa proplo, sin poder asImllar la lógica y encontrar 
los errores. 


Para eludir este trabajo innecesarlo y evitarse al máximo 
las faltas en los programas es aconsejable, en casl todos 
los casos, detallar el problema con láplz sobre el papel. 
Cada problema se puede secclonar en una serie de cuestiones 
parclales que, por sÍ solos, son más fáciles de resolver. 


Programadores profeslonales elaboran el programa en forma de 
los así denominados dlagramas de flujo. Tales diagramas 
comlenzan slempre con la casilla START y terminan con la 
casilla STOP. Entre estas dos casIllas se encuentra la parte 
interesante. A todos los problemas parciales del programa se 
les asigna una casllla, y éstas se unen por medio de 
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flechas. Las flechas indican todos los posibles transcursos 
del programa, y las casillas contienen el problema de esta 
parte del programa.» 


Como ya se ha dicho, para programas ampllos es asconsejable 
elaborar estos dlagramas de flujo, o al menos, l|Istar todos 
los problemas a solucionar. En el capítulo 4 se reallzará un 
ejemplo de diagrama de flujo con el ejemplo del programa 
Mastermind. Cuando se ha realizado este trabajo previo, se 
puede conectar el ordenador. 


Es útil programar primero una serle de líneas REM. Aquí no 
se deberfa señallzar solamente las diferentes partes del 
programa, slno también explicar lo que representa cada 
variable utilizada. SI luego hiclera falta la memorla, se 
pueden borrar los REMs. Pero hasta que se llegue a tal punto 
pueden ser muy útiles. 


Una propledad del lenguaje Pascal es el así denominado 
concepto de procesos. Estos se definen en el programa bajo 
cualquier nombre y pueden ser activados en cualquier momento 
bajo este mismo nombre. En algunas versiones más modernas de 
BASIC, también se ha reallzado este concepto. En el Spectrum 
todavía no, pero podemos conseguir algo similar cuando al 
principio de un programa introducimos lo sigulente: 


LET menu = 1900 
LET problema 1 = 1500 


. 


LET problemas = 6666 


Cuando cada parte del programa se ha cerrado con RETURN, 
podemos activar cada problema con el comando GOSUB problema 
l. Esto hace que la programación sea más clara. También 
tiene la ventaja de que al efectuar modificaciones en el 
programa, sólo es necesario cambiar el número de línea para 
un problema, y todos los demás comandos de programa siguen 
siendo correctos. 


Generalmente se recomienda dar a los programas una 
determinada estructura y aplicarla siempre que sea posible. 
Una posibilidad: para programas dirigidos por menús es 
empezar el menú slempre en la línea 9000. Entonces los demás 
problemas parciales pueden comenzar en las líneas 1000,2000 
etc. Las líneas 100 hasta 900 se utllizan para subrutinas, y 
las líneas 20 hasta 99 para la reserva de memoria para 
variables. Las primeras |Tneas pueden determinar el color 
para la impresión, papel, etc, pero también la asignación de 
las líneas para los diferentes problemas parciales. 


Exponemos un ejemplo que explica esta configuración: 


1 CLEAR 65535 

2 INK O: PAPER 6: BORDER 3: CLS 

3 LET margen = 100: LET falso = 150: LET color = 200 
10  LET menú = 9000 : GOTO menú 

20 DIM a(100) : DIM b(32) 

30 DIM g$(17,3) 


90 GOTO menú 


100 REM margen lateral 


140 RETURN 
150 REM entrada falsa 


190 RETURN 
200 REM let 1t be beepen 


290 RETURN 


1000 REM primer concepto del menú 


1990 GOTO menú 


9000 CLS : PRINT ''menáú principal'' 


Para reservar en este programa el espaclo de memorla para 
varlables, se ha de ¡ntroducir al principio el comando 
directo: 


GOTO 20 


El programa se puede salvar (SAVE) con LINE 1, y se inicia 
automáticamente después de ser cargado, sin borrar las 
variables. También se puede volver a inlclar con GOTO 1, 
después de una poslble deconexión del sistema. Si esto se 
aplica en todos los programas, sólo hay que aprenderse una 
vez esta dirección. 


Para modificar programas de manera relativamente fácIl, o 
buscar errores, se suglere no sólo programar de forma clara. 
También se pueden conseguir listados de programas de aspecto 
atractivo. 
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Esto se consigue con una cantidad suficiente de indicaciones 
en línea y también ¡ntroduciendo color en los listados, 
visuallzando líneas de forma parpadeante y corriendo partes 
del programa hacia la derecha. 


AsT Indicaciones REM especlales pueden ser: 
100 REM IIA 
100 REM 
Así subrutinas cortas pueden Introducirse : 


100 REM Borrar las líneas 10-15 
110 FOR 1=10 TO 15 


120 PRINT AT 10,1,, 
130 NEXT 1 
140 RETURN 


En la página 87 del manual del Spectrum se encuentran los 
códigos de control para los colores. Estos pueden determinar 
el color de una cadena en un comando PRINT, cuando se quiere 
prescindir de INK y PAPER. Pero tamblén se puede operar con 
ellos en el listado en cas| cualquier parte. De esta forma 
es posible recalcar los comienzos de un programa en un color 
rojo, cuando antes de la línea determinada se pulsan las 
teclas CAPS SHIFT y SIMBOL SHIFT y 2. Al flnal de línea hay 
que eliminar el color, activando el color normal de forma 
idéntica. De esta forma es ¡gualmente posible visualizar 
líneas, incluso el listado completo, de forma intermitente. 


Estos códigos se aprenden fácilmente. Primero hay que entrar 
en el ''Modo Extendido''. Entonces se pulsa una cifra de O a 
7: preparación de un color determinado para el fondo, 8 y 9 
influyen en el contraste. SI al mismo tiempo se pulsa la 
tecla CAPS SHIFT, entonces el color es válido para la 
escritura, y las cifras 8 y 9 inician o terminan la 
visualización Intermitente. 


Cuando Vd. haya confeccionado un programa y funcione, emplee 
un poco de tlempo en perfecclonarlo. Intente confeccionar el 
programa lo más atractlvo poslble. El color y el sonido (ó 
mejor el BEEP) no están sin motlvo Incorporados en el 
Spectrum y no deberTan desaprovecharse. Incluso un televisor 
blanco y negro representa los colores en diferentes matlces 
grises, lo que permite Igualmente una composIiclón más 
diferenciada de la pantalla. 

Programas con letra verde Ó amarllla sobre fondo negro no 
son sólo más profeslonales, sino que esta combinación de 
color exlge menos esfuerzo de los ojos que letra negra sobre 
fondo blanco. Y naturalmente, diferentes colores presentan 
la ¡información más clara, sobre todo cuando el mismo color 
se utllIiza para el mismo tipo de Información. 


No exlste ningún programa de clerta extenslón en el cual no 
se encuentre, en alguna parte, un pequeño error aunque es 
agradable que su número sea el mínimo. La mayorfa de las 
veces se cometen los errores en sltuaclones extremas, como 
por ejemplo cuando un flchero está completo y se ha de 
reallzar una operación determinada. Aún cuando esta 
operación tunciona en casi todos los casos, se Introducen en 
estas “sItuaclones los ''Bugs''(=errores de programación que 
aparecen precisamente en casos excepclonales). 


Sobre todo, cuando otras personas hayan de utilizar sus 
programas, ¡invierta más tiempo para comprobarlos. Es muy 
aconsejable dejar trabajar con el programa a alguien que no 
esté familiarizado con el mismo, y que trabaje sin ningún 
tipo de ¡¡nstruccilón. Cuando uno mismo ha escrito el 
programa, no se le ocurren las posibilidades más senclIllas 
como, por ejemplo, el hacer entradas falsas. 


Si la capacidad de memoria no empieza a escasear, se 
deberían utilizar las máximas ayudas para la entrada de 
datos, y éstas escribirlas en la pantalla. 

Ocurre a veces, que después de algún tiempo no se sabe qué 
es lo que se ha escrito en el programa y agradece estas 
ayudas. 


Programar efectivamente 


Todas estas reflexlones traen conslgo una ocupación más o 
menos ¡intensiva de la memoria. Pero tamblén hay otras 
posibilidades de ser más ahorratlvo con esta capacidad de 
memoria. Ya hemos visto un pequeño ejemplo. Supongamos que 
Vd. quiere borrar una línea, por ejemplo la línea 10. Esto 
se puede realizar con el comando: 


PRINT AT 10,03" 


quiere decirse, escriblendo una cadena con 32 elementos. Con 
el comando 


PRINT AT 10,0,, 


se consigue el mismo fin y se ocupan 32 Bytes menos de 
memoria. Los números se memorlzan en el Spectrum'con 5 
Bytes, palabras clave sin embargo, sólo con 1 Byte. Tamblén 
las variables ocupan 1 Byte. Con ello es posible dar el 
comando más eficaz, por ejemplo: 


PRINT AT 10, VAL "0",, 
o PRINT AT 10,NOT Pl,, 


La indicación PI/PI| está por '1', asf como 'NOT PI' está por 
'0'. Si Vd. se fija cuantas veces se utiliza el '0' y el '1' 
en un programa largo, podrá calcular fácilmente cuánta 
capacidad de memoria se puede ahorrar en un caso de 
necesidad, siempre que se sustituyan estas varlables 
numéricas. 


Si se utiiiza frecuentemente una dirección de salto, por 
ejemplo la línea donde esta el menú, se gana capacidad 
denominando a esta línea con una variable lo más corta 
posible como puede ser 'm', y se escribe GOTO m en lugar de 
GOTO 9000. 


Para ser justo hay que declr que este método es un poco más 
lento que la ¡indicación directa del número, ya que el 
Spectrum ha de buscarse cada vez el valor para cada 
variable. Pero por regla general, la diferencia es mínima. 


Es aconsejable utilizar los mismos nombres de variable lo 
más frecuente posible, ya que cada variable a definir ocupa 
espacio. Claro, que no se sobreescriban de esta manera las 
magnitudes que más tarde puedan hacer falta. 


Si «en un programa se han de memorizar muchos números, cuyo 
valor no sobrepasa 255, lo más efectivo es memorlzar en 
lugar del número ( que ha de ser entero) el carácter que 
corresponde a este número. Esto sólo ocupa 1 Byte en lugar 
de 5 , que son necesarios para cada número. A través del 
comando CODE se recupera el número cuando sea necesario. 


Incluso hasta el número 65536 es más rentable memorizarlos a, 
través del carácter con dos Bytes. Un Byte basta para la 

magnitud INT (número 256), y el segundo Byte para 

'Número-256*INT(número/256). Este es justamente el método 

que utiliza el Spectrum para direccionar sus 65536 espacios 

de memoria. En el capftulo próximo utlllzaremos más a menudo 

este sistema de direccionamiento. 


Con o sin Interface 1 existe la posibllidad de utIlizar 
junto al comando simple PRINT, igualmente el comando PRINTA, 
para programación más efectiva, siempre que se disponga de 
una impresora. 


Esto es debldo a que el concepto de corrientes y canales 
descrito en el manual del Interface 1, está Incluído ya en 
el Interface 1 sin ROM adiclonal, pero esto de forma más 
íntima. En el Spectrum, la entrada y la salida se real!lzan a 
través de diferentes corrlentes, las cuales llegan por los 
así denominados 'canales' a su punto de determinación. En el 
ROM normal se encuentran tres corrientes diferentes, 
señallzadas con 1,2 y 3. Tamblén existen tres canales; uno, 
denominado 'k', hacia la parte Interior de la pantalla a 
través del cual se transmiten los comandos INPUT e 
Indicaciones del Spectrum. El segundo es denominado 's' y es 
responsable de la parte superior de la pantalla, normalmente 
la parte más actlvada. Este canal es activado con PRINT. El 
tercer canal es utilizado por la impresora. 


Si se tiene el Interface 1, se dispone de más canales, como 
son el 'm' para Microdrives, '+' y 'b' para comunicación en 
serie y 'n' para la red. Estos pueden ser activados a través 
de 16 corrientes ( de O a 15). El comando PRINT "Hola" es en 
realidad una abreviación de PRINTA 2, "Hola". |gualmente, el 
comando LPRINT "Hola" es una abreviación de PRINT*3,"Hola". 
Idénticamente se comporta LIST y LLIST. 


Esto se puede aprovechar de forma ventajosa en muchos 
programas, para traspasar una información de la pantalla a 
la impresora. El siguiente ejemplo lo demostrará: 


100 REM salida 

110 LET salida = 2 

120 FOR ¡=1 TO 200 

130  PRINTA salida, a (1),b(1) 

140 NEXT ¡ 

150 |F salida = 2 THEN INPUT "¿imprimir? S/N",m$ 
160 IF m$ = "S" THEN LET salida = 3: GO TO 120 
170 LET salida = 2 
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Cuando se llega al bucle, el parámetro 'salida' se 
dirigido a 2, y se efectúa a través de la pantalla. En 
línea 150 se cuestlona sl se ha de aplicar la impresora. 
este caso, la 'salida' se dirlge hacia 3, por lo cual 
efectúa a través de la Impresora, como se deseaba. 


Este método es seguro, sobre todo es muy efectivo cuando 
trata de comandos PRINT muy amplios ( y ahorra tiempo 
introducirlo). También es posible comprobar las salidas 
la pantalla antes de imprimirla y malgastar así el papel. 
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CAPITULO 3: 
PEEKS, POKES y USRS 


La memoria del Spectrum 


A algunos lectores el título de este capítulo les resultará 
un poco extraño. Los "enterados" saben, naturalmente, de qué 
se trata. Si Vd. no lo sabe: no tenga miedo. Después de leer 
este capítulo, Vd. lo sabrá. 


Ahora nos ocuparemos un poco de la memoria del Spectrum. 
Cada espacio en la memoria tlene una dirección. Cuando se 
qulera saber lo que hay memorizado en un espacio 
determinado, por ejemplo el espacio 1000, se introduce el 
siguiente comando: 


PRINT PEEK 1000 


El Spectrum contesta entonces con un número entre 0 y 255 en 
la pantalla [ en este caso el 9). 


El. comando PEEK significa: ''mira qué es lo que hay en ese 
espacio'!. Sl se quiere memorizar un número determinado en 
un espacio determinado, por ejemplo el 6, hay que 
introducir: 


POKE 30000,6 


Naturalmente sólo se puede trabajar con POKES en la memoria 
RAM, Si esto fuera posible con el ROM, el sistema operativo 
quedaría desconcertado. 

Las direcciones de la memoria se han elegido de la manera 
más sencilla. 
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Empiezan con el 0 y llegan, según la versión del Spectrum, 
hasta 32767 (16K) o hasta 65535 (48K). Los primeros 16K, 
hasta la dirección 16383, están ocupados por el ROM. Aquí no 
es posible operar con el POKE, sino únicamente con el PEEK. 
Pero podemos aplicar algunas rutinas del sistema operativo, 
activándolo desde nuestro programa. Cómo se hace esto y 
dónde están memorizadas algunas rutinas Interesantes, se 
describirá a continuación. 


En los espacios del 16384 al 22527 se encuentra el fichero 
de presentación en pantalla, o sea, la Información que se vé 
en la pantalla. Esto es exactamente 256x192/8=6144 Bytes. A 
cada matriz de 8 x 8, se le puede asignar un atributo de 
color. Estos 32 x 24 = 768 Bytes se encuentran a 
continuación del mencionado fichero en los espacios 22528 
hasta 23295 y constltuyen el flchero de atributos. 


256 Bytes de memoria ¡ntermedia para la ¡impresora se 
encuentran en los espacios 23296 hasta 23551. A continuación 
de esta memoria se encuentran las variables del sistema, que 
apoyan al Spectrum en la organización de ficheros 
importantes para un programa. No todas las magnitudes están 
en direcciones fijas. A veces es más Interesante tener una 
sola dirección, en la cual se encuentra la dirección de 
determinadas magnltudes. 


Esto es similar a un viajante comercial que va continuamente 
de un lugar a otro. Siempre que llega a un nuevo destino, 
telefonea a su oficina de origen y comunica su número de 
telétono actual. Sus compañeros no saben nunca donde se 
encuentra exactamente. Pero cuando quieren contactar con él, 
sólo han de llamar a su oficina de origen para conseguir el 
número actual de teléfono. 
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A continuación de las variables de slIstema que, como se ha 
dicho, dan información sobre el paradero de muchas 
magnitudes, se encuentran los mapas de microdrive y la 
Información de canales. Y finalmente empieza el sector BASIC 
en el cual, primero se memoriza el programa y, después, las 
varlables utilizadas en el mismo.Por encima de todo el 
sector disponible al BASIC, se encuentran también los 
símbolos User Defined Grafics. 
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Las variables de sistema 


Las variables de sistema se encuentran en los espacios 23552 
hasta 23733 en el Spectrum sin Interface, además están 
ocupados los espacios del 23734 hasta el 23791 con el 
Interface al utilizar Microdrives, con la conexión RS 232 y 
la red. Algunas de estas variables pueden ser activadas con 
PEEKS y POKES, en otros axaplicando el comando POKES de forma 
inoportuna, se consiguen resultados sorprendentes, como por 
ejemplo una ruptura del sistema. 


Las varlables están provistas de nombres que no corresponden 
a los nombres en BASIC. Para alterar una variable no se 
puede ¡introducir el comando: LET VAR = 0, Es necesario 
asignar, mediante ''POKE*'' el número correspondiente a la 
dirección correcta. 


Si se trata de una variable que ocupa dos Bytes, entonces el 
primer Byte es el menos significante. Si hay que escribir el 
número decimal "d" en la dirección "z", hay que dar el 
siguiente comando: 


POKE z,d-256*INT (d/256) 
POKE z+1,I1NT(d/256) 


Al leer el valor correspondlente se Introduce: 

PRINT PEEK z+256*PEEK(z+1) 
y obtiene el valor decimal como resultado. 
Las variables de sistema están expiicadas en el manual del 
Spectrum. Aquí vamos a detallar más profundamente algunas de 
ellas, y describir algunos efectos de los POKES. 
23560 LAST K En este lugar se memoriza el código de la 

última tecla pulsada. Cuando Vd. pregunte 


por este valor en el modo directo, recibi- 
rá como respuesta siempre el 13. 
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23561 


23562 


REPDEL 


REPPER 


23606 - 23607 


23608 


23609 


CHARS 


RASP 


PIP 


Indica el tiempo en fracciones de 1/50 se- 
gundos antes de que la tecla pulsada sea 
repetida automáticamente. Al Iniciar nue- 
vamente el sistema se encuentra aquí el 
valor 35. Si Vd. "pokea" aquí el valor 1, 
resulta un efecto Interesante. Este es 
ampliado, si Vd. asiigna, mediante''POKE '* 
igualmente un 1 en la siguiente dirección. 
Esto es debido a que aquí se encuentra : 


El tiempo entre dos repeticiones, igualmen- 
te en fracciones de 1/50 de segundo. Nor— 
malmente esto es un 5. Es más o menos Im- 

posible efectuar una entrada razonable 
cuando en 23561 y 23562 se encuentra l. 
Lo único que se puede hacer es sacar el 
enchufe de la corriente. 


Aquí se encuentra la dirección de Inicio 
del juego de caracteres menos 256. El juego 
de caracteres comlenza con un espacio li- 
bre (CHR$ 32) y finaliza con CHR$ 127. La 
cantidad de 256 se resta, ya que 32*8 es 
justamente 256. Esta dirección se puede 
modificar, mediante '' POKE '*, de forma 
adecuada, para definir un propio juego de 
caracteres. En el capítulo 4 haremos uso 
de esta posibilidad, para popoder visuali- 
zar 64 símbolos por línea. 


Duración del sonido de emergencia. Este, 
por ejemplo, suena cuando la memoria está 
llena, y no puede admitir ninguna entrada 
más. Normalmente se encuentra aquí un 64. 
Tiene poco sentido cambiar esta valor. 


Duración de los clics del teclado. Normal 
mente se encuentra aquí un O.En algún pro 
grama puede ser útil moditicar, mediante 
'"POKE*, un número, para confirmar acústi- 
camente una entrada. 
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23613 - 23614 
ERR SP 


23617 MODE 


23626  BORDR 


23627 - 23628 
VARS 


23635 - 23636 
PROG 


23659 DF SZ 


23672 - 23674 
FRAMES 


Aquí se encuentra la dirección, a la cual 
se salta a causa de un error. 


Indica el modo en cual se encuentra el sis 
tema. En el caso corrlente es 0. 


Color del borde multiplicado por 8.También 
están memorizados los atributos para la 
mitad inferior de la pantalla.Pokear núme- 
ros como el 132,176,198,etc+., trae consigo 
buenos resultados. Lo más sencillo es rea- 
lizar un bucle de O hasta 255 y tener cui- 
dado de que, en cada valor, se escriba en 
las dos líneas inferiores.Con esto se pue- 
den conseguir bonitos efectos. 


Indica la dirección de las variables y 
el fin del programa BASIC. 


Indica el comienzo del programa BASIC.Con- 
juntamente con VARS, permite calcular la 
longitud del programa más 
256*(PEEK 23628 - PEEK 23636)+ 

PEEK 23627 - PEEK 23635 


Indica el número de líneas en la parte in- 
ferior de la pantalla.En el caso corriente 
son 2. Si aquí se asigna, mediante'POKE', 
un O,no es posible la indicación de error. 
Pulsando la tecla Break se origina el blo- 
queo del sistema y elimina la posibilidad 
de listar el programa. 


Cuenta los Frames, o sea, aumenta en uno 
cada 20 milisegundos. Esto abre la posibi- 
lidad de llevar a cabo una medición de 
tiempo real, ya que el aumento sólo se in- 
terrumpe con Load o Save. La aplicación 
se muestra claramente en el programa reloj 
tipo - telediario. 
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23675 


23677 
3678 


23684 


23685 


23692 


23693 


23730 


- 23675 
UDG 


COORDS 


S POSN 


SCR CT 


ATTR P 


- 23/31 
RAMTOP 


Dirección del primer carácter gráfico pro- 
plo definido. Esta dirección también puede 
ser encontrada con el comando PRINT USR 
"a".Si el espacio de memoria es ya muy re- 
ducido y ninguno de estos caracteres se ha 
de utilizar,esto es una posibilidad de ga- 
nar un poca de memoria a través de POKE. 


Estas posiciones dan las coordenadas x e y 
del último punto representado. A veces 
es útil asignar valores a éstos mediante 
'"POKE*" aún cuando PLOT conslgue el mismo 
etecto. 


Indica el número de columna de la posición 
de impreslón+Aquí no se cuenta desde O co- 
mo con AT, sino a partir de 33. 


Análogo a 23684, pero para el número de 
ifnea. Puede ser muy ÚútIl leer estas mag- 
nitudes mediante PEEK. 


indica la cantidad de desplazamiento hacia 
arriba(SCROLL)antes de que con la pregunta 
se Interrumpa el proceso. Si aquí se pokea 
continuamente un número mayor que 1 la 
pantalla no cesa de "enrollarse". 


Especifica los colores actuales. Como con 
23624 es muy efectivo utilizar aquí el co- 
mando ''POKE"', Por ejemplo 155,156 Ó O. 


Indica la dirección de los últimos Bytes 


que están disponibles para el BASIC. 
Tamblén puede ser modificado con CLEAR. 
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23132 - 23733 


23791 


PARAMT 


COPIES 


Indica la dirección del último Byte de la 
memoria. Esta dirección se puede leer me- 
diante ''PEEK'' para saber si se trata de 
la versión 16 ó 48KByte del Spectrum. A 
través de ello se puede, siempre que sea 
necesario, realizar una adaptación automá- 
tica en un programa. 


Indica la cantidad de coplas que se reali- 
zan al utilizar Microdrives. Si aquí se in 
troduce un número alto,se puede reducir el 
tiempo de acceso a un Fichero. 
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Algunos consejos y trucos 


En la última parte de este capítulo vamos a señalar y 
resumir algunos consejos, que representan una gran ayuda 
para la redacción de un programa, o que pueden ser aplicados 
para proteger los programas contra listado por personas no 
autorizadas. 


Como ya se ha dicho, el Spectrum puede ser programado en el 
código máquina. Estos programas O partes de programa son 
activados desde un programa BASIC a través de los comandos 


RAND USR n 
o PRINT USR n 


en los cuales, n signiflca la dirección de comienzo del 
programa. El final de tales programas es siempre el comando 
"RETURN" pero, claro está, en el código máquina. 


La ROM está totalmente escrita en código máquina. Este 
programa contiene una cantidad de subprogramas, la mayoría 
de los cuales están finalizados con un comando Return. 
Podemos activar estas rutinas siempre que tengan el efecto 
deseado, y aplicarlas. 


Cuando Vd. esté cansado de desconectar la corriente para 
efectuar un nuevo Inicio del sistema, lo cual a largo plazo 
no es beneficioso para el Spectrum, puede sustltuir esto por 
una llamada directa a la ROM. Lo único que tenemos que hacer 
realmente es ¡¡nlciar el sistema total desde el principio. 
¿Cómo se hace esto? Muy fácil. El comando 


RAND USR O 


cumple este objetivo. 
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Podemos probar el principio en otra parte sin peligro, por 
ejemplo allí donde se borre la pantalla. Esto se reallza a 
partir del Byte 3435. O sea 

RAND USR 3435 
borra la pantalla. 
Ahora bien, esto lo podíamos haber hecho fácilmente con 
'CLS'. Pero no habrfTamos conseguido el efecto deseado. Ahora 
sólo queremos borrar la parte inferior de la pantalla. Esto 
se realiza con 

RAND USR 3280 
Ya que estamos en el sector de ROM que es responsable de la 
pantalla, nos acordamos de que el Spectrum pregunta 
"¿Scrol!1?" en un momento determinado. Eso significa que 
tiene que existir una rutina que realice este scrolling. 
Según en qué parte de la rutina entremos, conseguiremos 
diferentes efectos. 

RAND USR 3280 
realiza el ascenso una sola línea. 

RAND USR 3582 
realiza el ascenso una sola línea con borde 

RAND USR 3652 
realiza el ascenso la parte inferior de la pantalla, y 

RAND USR 3583 
realiza el ascenso la parte inferior de la pantalla con 


borde. 


Por lo contrario 
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RAND USR 3330 
realiza el ascenso hasta la línea l. 


Ya vImos en el último párrafo cómo se consigue el color 
total del borde y de las dos últImas líneas inferiores de la 
pantalla, e Incluso el parpadeo. Esto se realizaba con el 
comando 


POKE 23624,n 


con valores para nm desde O hasta 255, en lo cual, los 
valores más altos consegufan los efectos más espectaculares. 
Análogamente vale lo mismo para los colores de la pantalla 
cuando se introduce 


POKE 23693,n 


Si se quleren proteger los programas contra listados por 
personas no autorizadas,hay que inventarse bastantes trucos. 
ExIsten empresas completas que se ocupan de la protección 
del software. Y claro está, la protección ideal aún no se ha 
encontrado. Esto es debido a que, aunque mejoran los 
sistemas de protección, tamblén mejoran los sistemas de 
burlar a estas protecciones. 


A nadle se le ocurriría hoy día utilizar la protección única 
de escribir con tinta del mismo color que el papel, de 
manera que la escritura sea llegible. Por otra parte podría 
ser una buena protección, ya que nadle cree en esto. 

Por lo menos se puede Introducir el signo de Copyright con 
el proplo nombre. Si esto se efectúa en el número de línea 
1, y a continuación 


POKE 23756,0 


la línea se transforma en línea O y no sale en el listado. 
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Una forma divertida, muy efectiva contra principiantes, y 
que les hace dudar sobre el buen funcionamientu de su 
ordenador, es la introducción de: 


POKE 23606,20 
o  POKE 23606,111 


o valores similares, ya que esto hace que la escritura sea 
¡leglble. Esto ocurre porque la dirección para el juego de 
caracteres se ha ''mandado a paseo''. Si se quiere Invertir 
este paso, hay que asignar un O mediante ''POKE'', 


Naturalmente se puede aplicar este cambio de dirección del 
juego de caracteres, para definir un juego de caracteres 
propio. Esto se explicará detalladamente en el próximo 
capítulo, cuando consigamos que el Spectrum escriba 64 
slgnos por línea en la pantalla. 


Un método sencillo para evitar una salida accidental del 
programa consiste en cambiar el número de líneas en la parte 
Inferior de la pantalla. En el caso normal son dos, a través 
de 


POKE 23659,0 
se ponen a 0, y ya no hey espacio para una indicación de 
error, como también origina un BREAK, y entoces llega el 
bloqueo del sistema. 
Analógicamente funciona el comando 

POKE 23613,0: POKE 23614,0 
ya que aquí el programa origina un iniclo nuevo del sistema 
después de una indicaclón de error. La única desventaja es, 


que todas estas variables no se conservan asf como fueron 
introducidas. 
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El proceso ha de repetirse, por tanto, varias veces. 
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CAPITULO 4: 
RUTINAS UTILES Y PROGRAMAS CORTOS 


Letra a doble tamaño 


Ha llegado la hora de ocuparnos de asuntos serios. Vamos a 
empezar con algunas rutinas que influyen en el tamaño de la 
letra en la pantalla. 


Primero vamos a ¡intentar representar el contenido de un 
campo, por ejemplo y$, a doble tamaño. Este proceso 
sobresaltaría títulos o comunicados Importantes en un 
programa. 


Vamos a empezar primeramente con un sólo carácter. Primero 
conseguimos el código de este carácter. Este comienza en el 
lugar 8*CODE y$ + PEEK 23606 + 256*PEEK 23607 =8*CODE y$ + 
15360 y está compuesto por ocho números. Tomamos los 
primeros cuatro números y los ¡introducimos dos veces 
consecutivas en USR "a", y los segundos cuatro números los 
introducImos análogamente en USR "b". Ahora sólo tenemos que 
Imprimir estos dos caracteres, autodefinidos uno encima del 
otro en el lugar deseado,y ya hemos terminado. 


o sea: 


800 LET x=8*CODE y$ + 15360 

810 FOR z=0 TO 3 

820 LET a=PEEK (x+z) 

830 LET b=PEEK (x+2+4) 

840 POKE USR "a"+2*z,a:POKE USR "a"+2*z+1,a 
850 POKE USR "b'+2*z+b:POKE USR "b"+2*z+1,b 
860 NEXT z 


y por ejemplo 
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900 PRINT AT 9,9;"A" 
910 PRINT AT 10,9;"B" 
para lo cual hay que elegir los correspondientes caracteres 
gráficos en las dos últimas líneas. 
SI ahora introducimos 
700 INPUT y$ 
y 990 GO TO 700 
seguido de RUN, podemos comprobar la rutina. 
Si todo sigue su orden normal, vamos a ampliar la rutina de 
tal manera, que y% pueda contener más de un sólo carácter. 
Para ello formamos un bucle de la longitud de yf$: 
750 FOR ¡=1 TO LEN y$ 
Debido a esto tenemos que cambiar las líneas 800,900 y 910 
800 LET x=8*CODE y$(1)+15360 
900 PRINT AT 9,1;"A" 
910 PRINT AT 10,1;"B" 
y añadimos 
920 NEXT 1 
Eligiendo por ejemplo la posición de impresión xpos,ypos y 
xpos+l,ypos para 'Gráfico A' y  'Gráfico B' y añadimos 
RETURN; esto es una subrutina útil, que puede convertir 
muchos programas en más accesibles. 


En conjunto, la rutina sería: 


750 FOR I=1 TO LEN y$ 
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800 LET x=8*CODE y (1)+15360 

810 FOR z=0 TO 3 

820 LET a=PEEK (x+z) 

830 LET b=PEEK (x+z+4) 

840 POKE USR "a"+2*z,a:POKE USR "a"+2*z+1,a 
850 POKE USR "b"+2*z,b:POKE USR "b"+2*2+1,b 
860 NEXT z 

900 PRINT AT xpos,ypos+I-13"A" 

910 PRINT AT xpos+1,ypos+I-1;"B" 

920 NEXT 1 

930 RETURN 


La rutina es relativamente lenta, pero esto no debe tomarse 
como molestia. Si se quiere hacer un poco más rápida, hay 


que elegir la siguiente versión: 


800 LET c=USR "a":LET d=USR "b" 


810 FOR 1=1 TO LEN y$ 
820 IF y$(1)=" " THEN PRINT AT xpos+1,ypost+i-13" ":GO 
TO 900 


830 LET x=8*CODE y$(1)+15360 

840 FOR z=0 TO 3 

850 POKE c+2*z,PEEK(x+z):POKE d+2*z,PEEK(x+z+4) 

860 POKE c+2*z+1,PEEK (x+z):POKE d+2%*z+1,PEEK(x+z+4) 
870 NEXT z 

880 PRINT AT xpos,ypos+I-1;"A" 

890 PRINT AT xpos+1,ypos+I-1;"B" 

900 NEXT 1 

910 RETURN 


Aquí hacen falta menos cálculos en los bucles, de manera que 
esta versión es casi el doble de rápida. Compare Vd. ambas 
rutinas. Pero piense que hay que definir las magnitudes xpos 
y YPOS. 


Si se quleren representar caracteres aún más grandes, 


llegaremos pronto a los lIfmites del BASIC. Las rutinas 
tardan mucho tlempo. En estos casos se deberfTa 
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programar en el código máquina. En el capítulo 9 
utilizaremos una rutina en código máquina, para escribir 
letras de cualquier tamaño. Pero Vd. puede escribir sus 
rutinas en BASIC, y luego traducirlas al lenguaje máquina 
mediante un compilador. Sobre este compilador hablaremos en 
el capítulo 7. 


64 carácteres por línea 


Después de descubrir la posibilidad de representar 
caracteres mayores a lo normal, vamos a ¡intentar conseguir 
caracteres más pequeños sobre la pantalla. ¿Por qué esto? 
Bien, a veces los 32 caracteres por línea no son 
suficientes, o al menos son ¡incómodos cuando hay que 
escribir columnas de números o mucho texto. Por algo existen 
en el mercado, a un elevado precio, las llamadas tarjetas de 
80 columnas para algunos ordenadores. 


El. programa procesador de textos Tasword |l es capaz de 
representar 64 caracteres por línea. De este programa 
hablaremos en el capítulo 7. Aquí vamos a desarrollar un 
método sencillo, para poder representar 64 caracteres por 
línea en nuestros propios programas. El trabajo vale la pena 
pues permite mostrar el doble de información que en el modo 
normal. 


¿Como funciona todo esto? Cada carácter esta representado en 
el Spectrum en una matriz de 8 x 8 puntos o Pixels. Pero es 
posible representar los caracteres en una matriz de 4 x 8, 
de forma que aún son legibles. ¿ Probémoslo ! Para ello 
utilizamos los UDGs, o sea los User defined Grafics Symbole. 


Probémoslo con la letra 'A'. Esta letra se puede representar 
en código binario de la siguiente manera: 


BIN 00000000 
BIN 00000100 
BIN 00001010 
BIN 00001010 
BIN 00001110 
BIN 00001010 
BIN 00001010 
BIN 00000000 
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Seguramente reconoce Vd. la muestra de la letra. 
Representémoslo en la pantalla. Para ello introducimos los 
siguientes comandos: 


10 DATA BIN 00000000,BIN 00000100,BIN 00001010, 
BIN 00001010,B1N 00001110,BIN 00001010,BIN 00001010, 
BIN 00000000 

20 FOR ¡=0 TO 7 


30 READ x 

40  POKE USR "a"+i,x 
50 NEXT 1 

100  CLS 


110 FOR ¡=1 TO 300 
120 PRINT "A"; 

130 NEXT 1 

140 STOP 


En la línea 120 se introduce naturalmente gráfica A, o sea 
CHR$ 144. Si Vd. introduce este pequeño programa y pulsa RUN 
verá 300 As estrechas sobre la pantalla. Hasta aquí bien. 
Esto no es nada más que un nuevo juego de caracteres como ya 
hemos tratado en el capítulo 3. ¿Cómo podemos juntar más los 
caracteres de manera que, de verdad, nos quepan más en la 
pantalla? 


El. siguiente paso es una pequeña ampliación del programa 
anterior. Introduzcamos lo siguiente: 


15 DATA BIN 00000000,BIN 00100000,BIN 01010000, 
BIN 01010000,BIN 01110000,B1N01010000,BIN 01010000, 
BIN 000000000 


60 FOR ¡=0 TO 7 


70 READ x 
80  POKE USR "b"+i,x 
90 NEXT ¡ 
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125 PRINT "B"; 


Nuevamente la letra visuallzada es el carácter gráfico. 
Ahora ¡introduzca otra vez RUN y verá 600 As, utilizando una 
vez la parte ¡zquierda, y otra vez la parte derecha de la 
matriz 8 x 8. Con esto aún no hemos llegado a la meta, pero 
ya estamos mucho más cerca. 


Ahora tenemos que conseguir que el Spectrum ponga ambos 
caracteres en la misma posición, sin que se borren 
mutuamente. Lo último se puede realizar fácilmente a través 
de OVER 1. 0 sea, si después de cada carácter que ocupe la 
parte ¡zquierda de la matriz, decrementamos en uno la 
posición de Print, se ha solucionado el problema. El 
retroceder se efectúa sencillamente con PRINT CHR$ 8. En 
nuestro ejemplo tendrTamos que empezar con el carácter 
gráfico B ya que ésta ocupa la parte izquierda de la matriz. 
Cambiemos el programa de la siguiente manera: 


120 PRINT "B";CHR$ 8; 
125  PRINT OVER 1;"A"; 


Y ahora introducimos RUN. Bien, ¿que le parece? 


Ya esta marcado el camino a seguir: vamos a definir un juego 
completo de caracteres propios, en los cuales sólo se 
utiliza la parte ¡zqulerda de la matriz, y otro juego 
completo para la parte derecha. Ambos juegos los 
memorizaremos en cualquier lugar por encima del RAMTOP. 
Cuando queramos visualizar algo con 64 caracteres por línea, 
ponemos el indicador sobre el juego de caracteres, que está 
situado en las variables de sistema 23606 y 23607, cambiando 
de un juego a otro, mientras que visualizamos el texto sobre 
la pantalla según nuestro pequeño programa. 


Los caracteres que queremos representar, abarcan aquel los 
con los códigos de 32 hasta 143, o sea 112 caracteres. 
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Para ello necesitamos 8*112 números por cada juego, para 
ambos juegos serían 2*896 números. El juego de caracteres 
normal es direccionado con la posición de memoria 15360. 
Esto significa que en la posición de memorla 23606 hay un 0, 
y en 23607 un 60, ya que el resultado de 0+256*60 es 15360. 
El. juego de caracteres proplamente dicho comienza en la 
dirección 15516, y los caracteres imprimibles empiezan 256 
posiciones después. 


Es aconsejable ¡Iniciar los juegos de caracteres nuevos en 


direcciones que sean múltiplos de 256, ya que aslÍ al 
conmutar, sólo hay que pokear la dirección 23607. 
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Supongamos por un momento que ya hemos definido los dos 
juegos de caracteres y ocupado las posiciones de memoria 
63488 hasta 64383 y 64512 hasta 65408. Entonces aseguramos 


con el comando: 


SAVE "64MC" CODE 63488,1921 o bien 
SAVE *"m";1;"64MC" CODE 63488,1921 respectivamente 


Las direcciones de la memoria están elegidas de tal manera, 
que con el comando POKE 23607,247 y POKE 23607,251 se puedan 
activar los nuevos juegos de caracteres. Con POKE 23607,60 
se puede volver de nuevo a los caracteres normales. Vamos a 
escribir ahora una pequeña rutina que nos represente 
cualquler cadena con 64 caracteres por línea sobre la 
pantalla. 


5 CLEAR 63487: LOAD*"m";1;"64MC" CODE 
10 LET pr64=9700 

20 LET xpos=10 

30 LET ypos=0 

50 CL5S 

60 INPUT " Por favor introducir texto",,z$ 
70 GO SUB pré64 

80 PAUSE 0 

90 GO TO 50 

9700 PRINT AT xpos,ypos;CHR$8; 

9710 FOR [I=1 TO LEN z$ STEP 2 

9720 POKE 23607,251 

9730 PRINT z$(1); 

9740 1F ¡=LEN z$ THEN GO TO 9790 

9750 PRINT CHR$ 8; 

9760 POKE 23607,247 

9770 PRINT OVER 1;z5$(1+1); 

9780 NEXT ¡ 

9790 POKE 23607,60 

9800 RETURN 


Blen, ahora sólo nos faltan los dos juegos de caracteres y 
empezar.» La definición de los caracteres es algo muy 
laborioso. El que disponga del programa Tasword || lo tiene 
más fácil, ya que en este programa ya hay un juego definido. 
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Cuando se haya cargado el programa, este juego se encuentra 
en las direcciones 61184 hasta 62079 y puede ser salvado 
fácilmente cuando se vuelva al BASIC con: 


SAVE "64MC" CODE 61184,896 o bien 
SAVE *'"m";1;"64MC" CODE 61184,896 


Después puede ser cargado con LOAD"64MC" CODE 63488,896 en 
las posiciones utilizadas por nosotros. El que no disponga 
del programa Tasword ll, tiene que echar toda la carne en el 
asador e introducir el código. El programa para la formación 
de este juego de carácteres se compone de la siguiente 
manera: 


10 CLEAR 63487 

20 RESTORE 

32 DATA 0,0,0,0,0,0,0,0 
33 DATA 0,2,2,2,2,0,2,0 
34 DATA 0,5,5,0,0,0,0,0 
35 DATA 0,5,7,5,5,7,5,0 
36 DATA 0,2,7,4,7,1,7,2 
37 DATA 0,4,4,1,2,4,1,1 
38 DATA 0,2,5,2,6,11,15,0 
39 DATA 0,2,4,0,0,0,0,0 
40 DATA 0,2,4,4,4,4,2,0 
41 DATA 0,4,2,2,2,2,4,0 
42 DATA 0,0,5,2,7,2,5,0 
43 DATA 0,0,2,2,7,2,2,0 
44 DATA 0.0.0.0.0,2,2,4 
45 DATA 0,0,0,0,7,0,0,0 
46 DATA 0,0,0,0,0,6,6,0 
47 DATA 0,1,1,2,2,4,4,0 
48 DATA 0,7,5,5,5,5,7,0 
49 DATA 0,2,6,2,2,2,7,0 
50 DATA 0,2,5,1,2,4,7,0 
51 DATA 0,6,1,6,1,1,6,0 
52 DATA 0,1,3,5,5,7,1,0 
915) DATA 0,7,4,6,1,1,6,0 
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54 
55 
56 
51 
58 
59 
60 
61 

62 
653 
64 
65 
66 
67 
68 
69 
70 
YA] 

72 
73 
74 
43 
76 
71 
78 
79 
80 
81 

82 
83 
84 
85 
86 
87 
88 
89 
90 
91 

92 
93 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


0,3,4,6,5,5,2,0 
0,7,1,2,2,4,4,0 
0,7,5,2,5,5,7,0 
0,2,5,5,3,1,6,0 
0,0,0,2,0,0,2,0 
0,0,2,0,0,2,2,4 
0,0,1,2,4,2,1,0 
0,0,0,7,0,7,0,0 
0,0,4,2,1,2,4,0 
0,2,5,1,2,0,2,0 
3,4,2,5,2,1,6,0 
0,2,5,5,7,5,5,0 
0,6,5,6,5,5,6,0 
0,2,5,4,4,5,2,0 
0,6,5,5,5,5,6,0 
0,7,4,6,4,4,7,0 
0,7,4,7,4,4,4,0 
0,2,5,4,7,5,2,0 
0,5,5,7,5,5,5,0 
0,7,2,2,2,2, 1,0 
0,1,1,1,5,5,2,0 
0,5,5,6,6,5,5,0 
0,4,4,4,4,4,7,0 
0,5,7,7,7,5,5,0 
0,7,5,5,5,5,5,0 
0,2,5,5,5,5,2,0 
0,6,5,5,6,4,4,0 
0,7,5,5,5,7,7,1 
0,7,5,5,6,6,5,0 
0,3,4,2,1,1,6,0 
02 liza Zo 20 
0,5,5,5,5,5,7,0 
0,5,5,5,5,5,2,0 
0,5,7,7,7,7,2,0 
0,5,5,2,2,5,5,0 
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94 DATA 0,2,7,2,2,2,2,0 


95 DATA 0,0,0,0,0,0,0,15 
96 DATA 0,2,5,4,15,4,15,0 
97 DATA 0,0,6,1,7,5,7,0 
98 DATA 0,4,4,6,5,5,6,0 
99 DATA 0,0,3,4,4,4,3,0 


100 DATA 0,1,1,3,5,5,3,0 
101 DATA 0,0,2,5,6,4,3,0 
102 DATA 0,3,4,6,4,4,4,0 
103 DATA 0,0,3,5,5,3,1,6 
104 DATA 0,4,4,6,5,5,5,0 
105 DATA 0,2,0,6,2,2,7,0 
106 DATA 0,1,0,1,1,1,5,2 
107 DATA 0,4,5,6,6,5,5,0 
108 DATA 0,4,4,4,4,4,3,0 
109 DATA 0,0,5,7,7,7,5,0 
110 DATA 0,0,6,5,5,5,5,0 
111 DATA 0,0,2,5,5,5,2,0 
112 DATA 0,0,6,5,5,6,4,4 
113 DATA 0,0,3,5,5,3,1,1 
114 DATA 0,0,3,4,4,4,4,0 
115 DATA 0,0,3,4,2,1,6,0 
116 DATA 0,2,7,2,2,2,1,0 
117 DATA 0,0,5,5,5,5,7,0 
118 DATA 0,0,5,5,5,5,2,0 
119 DATA 0,0,5,7,7,7,2,0 
120 DATA 0,0,5,5,2,5,5,0 
121 DATA 0,0,5,5,5,3,1,6 
122 DATA 0,0,3,1,2,4,7,0 
123 DATA 0,5,0,6,1,7,7,0 
124 DATA 0,5,0,2,5,5,2,0 
125 DATA 0,5,0,0,5,5,7,0 
126 DATA 0,6,5,6,5,5,6,4 
127 DATA 6,8,11,10,11,8,9,6 
128 DATA 15,9,9,9,9,9,9,15 
129 DATA 3,3,3,3,0,0,0,0 
130 DATA 12,12,12,12,0,0,0,0 
131 DATA 15,15,15,15,0,0,0,0 
132 DATA 0,0,0,0,3,3,3,3 
133 — DATA 3,3,3,3,3,3,3,3 
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134 DATA 12,12,12,12,3,3,3,53 
135 DATA 15,15,15,15,3,3,3,3 
136 DATA 0,0,0,0,12,12,12,12 
137 DATA 3,3,3,3,12,12,12,12 
138 DATA 12,12,12,12,12,12,12,12 
139 DATA 15,15,15,15,12,12,12,12 
140 DATA 0,0,0,0,15,15,15,15 
141 DATA 3,3,3,3,15,15,15,15 
142 DATA 12,12,12,12,15,15,15,15 
143 DATA 15,15,15,15,15,15,15,15 


200 DATA 9999 

250 LET n=23487 

300 READ x 

310 IF x>500 THEN GO TO 400 
320 LET n=n+1 

330 POKE n,x 

390 GO TO 300 


En este programa podemos definir también el segundo juego de 

caracteres.¡ Pero sin miedo! No hace falta introducir otra 
vez tantos datos. Podemos calcular estos códigos de 

caracteres de los datos ya existentes. En el segundo código 

slempre se utillza la parte Izquierda de la matriz, sólo hay 

que multiplicar cada número por 16, y ya hemos terminado. O 

sea: 


340 POKE n+1024,16*x 

y así sucesivamente 

400 SAVE "64MC" CODE 63488,1921 

O el comando correspondiente, para grabar en Microdrive. 
Ahora ¡introduzca Vd. RUN para este programa y grabe ambos 


juegos. Entonces puede introducir el programa antes escrito 
y habrá terminado. 
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Las posibilidades de aplicación y de modificación de la 
rutina 'pr64' son muy ampllas. Por ejemplo, Vd. puede 
efectuar cada entrada con este tipo de letra. Deje Ud. volar 
su fantasía. 
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Mastermind 


Ahora vamos a programar el primer pequeño juego. Se llama 
Mastermind. Consiste en que el Spectrum "piensa" una 
combinación de cinco cifras del 1 al 9, en un orden 
determinado. El ¿jugador debe Intentar, con un mínimo de 
intentos, acertar estas cinco cifras asíÍ como su orden. 
Después de cada intento, el Spectrum contesta por una parte 
el número de cifras que se han acertado, y por otra, el 
número de cifras que están en la posición correcta. 

Antes de empezar con la programación vamos a hacer un 
esquema del programa, algo así como un diagrama de flujo. 


Los pasos a realizar son los siguientes: 


INICIALIZAR, o sea, borrar pantalla, preparar memoria, 
ete. 


"PENSAR" LOS NUMEROS 

COMPONER PANTALLA 

ENTRADA DEL PRONOSTICO 

COMPROBACION DE LA ENTRADA 

VISUALIZACION DEL PRONOSTICO 

COMPROBAR POSICIONES ACERTADAS 

COMPROBAR CIFRAS ACERTADAS 

VISUALIZACION DE LOS ACIERTOS 

COMPROBAR SI SE HA ENCONTRADO LA SOLUCION 


Si se ha acertado, visuallzar comentario y FIN. 
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Si no se ha acertado, comprobar si son demasiados 
“Mntentos 
demasiados intentos: volver a ENTRADA DE 
PRONOSTICOS 
pocos intentos: visualizar comentario y fin 


COMENTAR 1 0S 


FIN 


Empecemos con el primer punto, la INICIALIZACION. 


4000 REM Mastermind 
4010 BORDER 6: PAPER 6: INK 0: CLS 


Como memorla necesitamos dos campos con 5 elementos cada 
uno. Al primero lo llamamos 'a(5)' y aquí memorizamos las 
cifras elegidas por el Spectrum. Al segundo lo llamamos 
b(5), y contiene el pronóstico introducido. O sea 


4020 DIM a(5): DIM b(5) 


Además ¡introducimos un contador, para que el juego se 
finallce después de máximo 15 intentos. 


4030 LET n=0 


Con esto se ha acabado el primer punto, y podemos dejar al 
Spectrum que piense 5 números. 


4040 FOR ¡=1 TO 5 
4050 LET a(1)=1+INT (9*RND) 


Con el primer número no hace falta que comprobemos si este 
ya ha sido Introducido anteriormente, o sea 


4060 IF ¡=1 THEN GO TO 4100 

4070 FOR k=1 TO ¡-1 

4080 IF a(i)=atli-k) THEN GO TO 4050 
4090 NEXT k 

4100 NEXT 1 
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Ahora se encuentran en el campo a(5) cinco números 
diferentes, como deseábamos. Ahora podemos pasar a componer 
la pantalla. 


4200 PRINT ” MASTERMIND (5 de 9)" 
4210 PRINT AT nn+3,0;"N INTENTO Pos 0K NUM Ok" 


Y ahora la entrada del prognóstico: 
4220 INPUT'"(pronóstico (por ejemplo 12345 ENTER)""'; LINE b$ 
Ahora comprobamos si esta entrada es correcta. 


4230 IF LEN b$<>5 THEN GO TO 4240 

4232 LET falta=0 

4234 FOR ¡=1 to 5 

4236 |F CODE b$(1)<49 OR CODE b$(1)>57 THEN LET falta=1 
4238 NEXT ¡ 

4239 IF falta=1 THEN GO TO 4220 


Con esto se puede visualizar el prognóstico. En realidad no 
es necesario entrar en el campo el contenido del String b$. 
Pero en este programa seguro que no habrá problemas de 
capacidad de memoria y podemos hacerlo tranquilamente. 


4240 PRINT AT nn+4,0;nn+1 
4250 FOR ¡=1 TO 5 

4260 LET b(1)=VAL b$(i) 

4270 PRINT AT nn+4,2*1+2;b(1) 
4280 NEXT ¡ 

4290 LET nn=nn+1 


Ahora comprobamos si se ha acertado la solución, o cuantos 
números y posiciones han sido acertadas. Primero colocamos 


los dos contadores a cero. 


4300 LET r1=0:LET r2=0 
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y formamos un bucle de 1 hasta 5 


4310 FOR ¡=1 TO 5 
4320 1F a(i)=b(1) THEN LET ri=r1+1 


Se cuentan los números en la posición correcta. Ahora se 
comprueban los números acertados, sea la posiclón que fuere. 


4330 FOR k=1 TO 5 
4340 |F a(T)=b(k) THEN LET r2=r2+1 


4350 NEXT k 
4360 NEXT ¡ 


De esta forma los valores buscados se encuentran en rl y r2 
y pueden ser visualizados. 


4370 PRINT AT nn+3,18;r1 
4380 PRINT AT nn+3;25;r2 


Si todos los números están en la posición correcta, hay que 
editar un comentarlo. 


4400 1F r1=5 THEN GO TO 4500 

Si se han realizado 15 intentos, se interrumpe el juego. 
4410 IF nn>15 THEN GO TO 4600 

SI no es asf, vuelta a la introducción de pronóstico. 
4420 GO TO 4220 

Ahora veamos los comentarios: 

4500 PRINT: PRINT "Acertado en"; nn;"intentos" 

4510 |F nn<=4 THEN PRINT "Muy bien" 

4520 IF nn=5 THEN PRINT "Casi un buen jugador" 


4530 |F nn=6 THEN PRINT "Bastante bien" 
4540 IF nn=7 THEN PRINT "Casi bien, sigue practicando" 
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4550 IF nn>7 AND nn<=10 THEN PRINT "Mediocre" 
4560 IF nn>10 THEN PRINT "Esto podria estar mejor!" 
4570 GO TO 4900 


4600 PRINT :PRINT "Hoy no esta en forma !" 
Y al final la pregunta, sl se desea otro partida. 


4900 PRINT FLASH 1;"¿Otra partida? S/N" 
4910 PAUSE O 

4920 1F INKEYS$="s" THEN GO TO 4000 

4930 CLS : STOP 


Con esto hemos terminado. Ahora asegure el programa con 
"LINE 1' e introduzca RUN. ¡Disfrute acertando! 


El programa no se ha acortado lo máxImo posible para que sea 
claro. Le invitamos a Vd. para mejorarlo, así como todos los 
programas de este libro. Se quieren publicar programas 
listos para funcionar, pero esto no debe impedir actuar su 
propia creatividad. 


Para finalizar este capftulo, vamos a exponer tres listados 
de programas que no vamos a explicar . Son programas 
relativamente cortos, y con un poco de voluntad pueden ser 
captados rápidamente. El primero representa un reloj tipo 
telediario sobre la pantalla. El programa está descrito en 
sus rasgos básicos en el manual de manejo del Spectrum. Aquí 
se ha completado. El programa se puede aplicar, 
naturalmente, como subrutina en otros programas. 


Lo mismo sucede con el programa 'Calendario', que sigue a 


continuación. El programa le permite visualizar cualquler 
mes con sus dlas, sobre la pantalla. 
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El tercer programa listado es el de biorritmos, tan estimado 
por tantas personas. Naturalmente el biorritmo no tiene que 
ver nada con la realidad, pero nunca se sabe... 


$4 


REM RERERABAELICACAAARS 
REM -EBRENIERARERSIRAARA RARA 
REM 
REM FERRE-MORET 
REM 
REM EXI CELA 
REM EEAREAAARIAARA NAAA 
BORDER Oz PAPER Oz INK 6: CLS 
LET u$="1111" 
60 TO 2000 
INPUT "HORA (p.ej. 0845)"; LINE u$ 
IF LEN us$<>4 THEN GO TO 50 
LET errores=0 
FOR i=1 TO 4 
IF CODE u$(1)<48 OR CODE u$(1)>57 THEN LET errores=1 
NEXT i 
85 1F errores=1 THEN GO TO 50 
90 1F VAL u$>2400 THEN GO TO 50 
95 RETURN 
2000 CLS : REM reloj 
2100 LET e=50% (36008YAL u$(1 TO 2)+60%VAL us$(3 TO 4)) 
2110 LET ss=65536: LET pp=23672 
2120 LET al=INT (e/ss) 
2130 LET a2=INT ((e-al%55)/256) 
2140 LET a3=e-alkss-a28256 
2150 POKE pp+2,al:z POKE pp+1,a2: POKE pp,a3 
2200 CLS 
2210 FOR m=1 TD 12: PRINT AT 10-104C0S (n/68P1),16+10%8SIN 
/6GXPI)>3n: NEXT n 
2220 DEF FN t()=1NT ((sskPEEK (pp+2)+2568PEEK (pp+1)+PEEK pi 
>)/50) 
2230 LET ti=FN t(): LET ts=t1 
2240 LET tm=INT (t1/60): LET th=tm/60 
2250 REM LET am=tm/30XP1I: LET ah=thk6/PI 
2251 LET am=tm/30%PI: LET ah=th/68PI 
2260 LET mx=723SIN ama LET my=723C0S am 
2270 LET hx=408SIN ah: LET hy=40XC05 ah 
2300 PLOT 132,90: DRAW OVER 13hx,hy 
2310 PLOT 130,90: DRAW OVER 1;mx,my 
2320 LET a=t1/308PI 
2330 LET sx=568SIN a: LET sy=56XCOS a 
2340 PLOT 131,91: DRAW OVER 13sx,sy 
2350 LET t=FN t() 
2360 IF t<=t1 THEN (GO TO 2350 
2370 PLOT 131,91: DRAW OVER 1l3sx,sy 
2380 IF INKEYS$="u" THEN 60 SUB 50: 60 TO 2000 
2400 IF t/60<>INT (t/60) THEN GO TO 2450 
2410 PLOT 130,90: DRAW DVER 1;3mx,my 
2420 PLOT 132,90: DRAW OVER 1¿ghx,hy 
2430 LET tm=tm+1: LET th=th+1/60 
2440 LET ts=t: LET ti=t 
2445 60 TO 2250 
2450 LET ti=t 
2500 GO TO 2320 


J3NrggN 
8 uo 508 OÓO0mNADoUA UN 


a) 


ERRE AREA 
ABEABEAAAEAALANANIAA RR 


AURELIA 
EAAAAARAERARI RARE 
BORDER Oz PAPER Oz INK 63 CLS 


REM 
REM 
REM 
REM FERRE-MORET 
REM 
REM 
REM 


DONO NA UN 


kz DATA 112,14,0,104,68,68,68,0: REM genera la 
de GRAPHICS 

10 60 TO 100 

20 LET y=0 


22 FOR j=1 TO LEN m$: 1F ms$(j)="2" THEN LET y=y+1 


23 IF y=a THEN 60 TO 25 

24 NEXT j 

25 FOR y=1 TO 9%: 1F ms$(j+y)<>"%" THEN NEXT y 
28 LET tS=a$(5j+1 TO j+y-1) 

29 RETURN 


30 INPUT “DIA ="3; LINE a$: 1F a$="" THEN GO TO 30 


32 IF VAL as<10 THEN LET as$=" "+a$ 
353 LET dia=VAL at 
40 RETURN 


RESTORE : FOR k=0 TO 72 READ dz POKE USR "n"+k,d:z NEXT 


N en mo 


100 LET m$="£ENEROSFEBREROXMARZOXABR ILEMAYOXJUNIOX JUL IOXAGO 


STOXSET IEMBREXOCTUBREXNOV IEMBREXDICIEMBRES " 


110 LET N$=" 1 23456 7 8 910111213141516171819202122232 


425262728293031 " 

120 LET d$="LuniMarMi eJueVi eSabDom" 

130 LET có$="303232332323" 

140 LET m=0: LET n=0 

200 INPUT "A o ? (ENTER=1985)";a$ 

202 IF a$="" THEN LET ty=1985: LET a$="1985" 
203 IF VAL a$<1760 THEN GO TO 200 

204 IF VAL a$>9999 THEN 60 TO 200 

208 IF a$<>"" THEN LET ty=VAL ab 


210 INPUT “Mes 7? (Enero=1, etc) "za$: IF a$="" THEN GO TO 


215 LET m=VAL as 

220 GO SUB 20 

230 60 SUB 30 

400 CLS 1 LET 1y=0 

402 IF ty/4<>INT (ty/4) THEN 60 TO 420 
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404 LET 1ly=1 
410 IF ty/100<>INT (ty/100) AND ty/400<>INT (ty/400) THEN 
LET 1y=0 
420 LET n=CODE c$ (m) -20 
422 1F m=2 AND ly THEN LET n=n-1 
424 LET y=0 
426 FOR j=1 TO m: LET y=y+CODE c$(j)-20: NEXT j 
430 IF ly AND m>1 THEN LET y=y-1 
435 LET y=y+1-n+(ty-1)365+I1NT ((ty-1)/4)+1NT ((ty-1)/100)+ 
INT ((ty-1)/400) 
440 LET y=y-78I1NT (y/7) 
450 CLS : PRINT  INK 3;ty53TAB (31-LEN t$)/23tS;TAB 289; ty 
2460 FOR j=1 TO LEN d$ STEP 3: PRINT AT j/3%2+2,05d$(j TO ¡+ 
2); TAB 29;d$(j TO j+2)3 NEXT j 
500 LET ps=n$( TO ns2) 
502 FOR j=1 TO yz LET p$=" "+p$: NEXT j 
520 Li date=0: LET x=51 LET y=7 
530 FOR j=1 TO LEN p$ STEP 2: LET y=y+23 1F y<16 THEN 60 T 
O 560 
540 LET y=3:3 LET x=x+4 
560 IF p$(j TO jr+r1)=as THEN FLASH 1 
565 PRINT AT y,x3 INK 45p3(j TO j+1) 
566 FLASH O 
570 NEXT j 
580 PRINT AT 19,0;"Proximo mes ? Anterior 2 " 
581 PRINT AT 20,03"Fecha” 
590 PRINT AT 20,0;"Fecha (introducir iniciales)" 
600 PAUSE O: LET f$=INKEYS 
610 IF f$="f" THEN 60 TO 200 
650 IF £$<>"p" THEN 60 TO 670 
660 LET m=m+13 LET a$="99": IF m=í3 THEN LET ty=ty+13 LET 
m=1 
661 IF ty>9999 THEN LET ty=9999 
665 GO SUB 20 
669 GO TO 400 
670 IF £$<>"a" THEN 60 TO 480 
672 LET m=m-1: 1F m=0 THEN LET m=12: LET ty=ty-1: 1F ty<17 
60 THEN LET ty=1760 
673 LET a$="99" 
674 60 SUB 20 
676 60 TO 400 
£80 60 TO 400 
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REM EREREREAREAA RAI 
REM SERARCUANIIRARICAR RA 
REM 

REM FERRE-MORET 
REM 

REM BEXEARECRRIA NAC 
REM £IARERARSAAAA AAA 


Noa duN”- 


10 RESTORE 2 FOR k=0 TO 7: READ d: POKE USR “n"+k,d:z NEXT 


13 DATA 112,14,0,104,68,68,68,0 
15 REM Estas lineas generanel caracter , lo cual evit 
elengorro de no poder escribir a ocomo corresponde. 


17 
19 
20 


AXRARRA(  = GRAPHICS N)XARAIAA 


BORDER 6: PAPER 6: INK O: CLS 
LET m$="303232332323" 


PRINT TAB 7; INVERSE 1;"B 10ORR 1 TMO" 


INPUT "nombre= "3n$ 
PRINT AT 2,0;"de",n$ 


INPUT "a o de nacimiento : ";j$ 


IF VAL j$<=1900 THEN GO TO 50 


ro”; 


PRINT "fecha de nacimiento : 
INPUT "mes de nacimiento (1-1 
PRINT x585"-"; 


INPUT "dia de nacimiento = ";t$ 


PRINT ts 

LET q=0 

FOR i=1 TO VAL x$-1 
LET q=q+CODE ms$(1)-20 
NEXT i 

LET y=VAL j$ 


IF q>59 AND y/4=INT (y/4) THEN LET q=q+1 


2) 


"5x5 


LET q=q+VAL ts+INT (365.252 (y-1)) 


INPUT "fecha del biorritmoza O ="3k5 


IF k$<j$ THEN GO TO 200 
PRINT "fecha del biorritmo : 
INPUT “mes= "5,15% 

PRINT 153 "-"; 

INPUT "dia";ys$ 

PRINT y$ 

LET r=0 

FOR i=1 TO VAL 1$-1 


ks;"- 


320 LET r=r+CODE m$(1i)=20 

330 NEXT i 

335 LET y=VAL k$ 

340 IF r>59 AND y/4=INT (y/4) THEN LET r=r+1 
350 LET rer+VAL yS$+INT (365.258 (y-1)) 

400 LET z=r-q 

600 LET amp=1.5 


610 PRINT AT 8,0; "+----+---4--— +++" 
620 PRINT AT 13,03 “9-44 e 
630 PRINT AT _18, 03 “++ _—_ 4 


£40 60 SUB. 1100 

650 PRINT AT 7,0; "fisico" 

660 PRINT AT 12,0;"esoacional"” 

670 PRINT AT 17,0;"intelecto” 

700 LET fis=z-23XINT (2/23) 

710 LET emo=z-28X INT (7/28) 

720 LET int=z-33%INT (2/33) 

7350 LET p=23 

760 LET n=fis 

770 LET k=104 

780 60 SUB 1000 

800 LET p=28: LET n=emo: LET k=G44: GO SUB 1000 
810 LET p=33: LET n=ints LET k=24: GO SUB 1000 
900 INPUT "otra vez s/n "“z LINE q$: 1F q$="s" THEN 60 TO S 
910 INPUT “copia por impresora? s/n "j LINE q$6: IF qs="s" T 
HEN COPY 

920 CLS : STOP 

1000 REM dibujar curvas 

1010 FOR j=4 TO 244 

1020 PLOT j,ampiSIN ((5/4+(88n) )*PI/p)x10+k 
1030 NEXT j 

1040 RETURN 

1100 FOR i=0 TO 30 STEP 5 

1110 LET dia=VAL ySti 

1120 IF dia>CODE mS(VAL 1$)-20 THEN LET dia=d1a-CODE m$ (VAL 
1$)+20 

1130 PRINT AT 9,izdia 

1140 PRINT AT 14,iz5dia 

1150 PRINT AT 19,izjdia 

1160 NEXT i 

1170 RETURN 


CAPITULO 5: 
UN JUEGO PARA MENTES DESPIERTAS: ADIVINAR SIMBOLOS 


Explicación del juego 


Después de tratar cosas más blen básicas y todo tipo de 
consejos, trucos así como rutinas y programas pequeños, 
vamos a emplearnos a fondo y redactar un programa de juego 
más complejo. 


Como dice el título de este capítulo, no se trata de un 
juego bélico. Tampoco importa mucho la rapidez de reacción. 


Lo que se pretende es entrenar el pensamlento lógico. ¡Pero 
sin miedo, es muy divertido! 


El problema consiste en acertar un juego de ecuaciones 
relacionadas entre sí, o dicho de otra forma, solucionar un 
sistema de ecuaciones. ¿Qué significa esto? Vamos a escribir 
sencillamente una ecuación: 

5+6=11 
Y ahora escribamos una segunda ecuación: 


14 + 7= 21 


Hagamos una raya por debajo de las dos ecuaciones y sumemos 
los números, de lo cual resulta: 


5+6=11 
14 + 7 = 21 
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19 +33 32 


¿Qué es lo ¡nteresante en este asunto? Bien, cuando el 
programa esté listo, el Spectrum "Idea" un sistema de 
ecuaciones de este tipo (o más complicado), pero no nos 
mostrará los números, sino que repreresentará cada cifra del 
0 al 9 por un símboio determinado. El jugador debe ahora 
encontrar la citra correspondiente a cada símbolo. 


Ya que para la composición de las ecuaciones y su asignación 
de los símbolos utilizamos el generador aleatorio del 
Spectrum, prácticamente ningún juego será idéntico a otro. 
Al principio se deseará un poco de apoyo por parte del 
ordenador, pero este ¡rá disminuyendo, a medida que se va 
adquiriendo práctica. 
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Desarrollo del programa 


Para el programa son necesarias las siguientes rutinas: 


l. Portada con explicación del juego 


2. Reservar memorla para todos los campos (vectores) 
posibles. 


3. Componer sistema de ecuaciones 
4. Aslgnación de símbolos a los números 
5. Composición de la pantalla 


6. Introducción de pronósticos, modificaciones, y 
edición de ayudas del ordenador 


7. Comprobación, si se ha encontrado la solución 
8. Final de juego 


Comenzemos con el primer punto, la composición de la 
portada. 


100 PAPER 6: BORDER 3: INK O 

200 CLS: PRINT TAB 8; "ADIVINAR SIMBOLO" 

210 PRINT" Se trata de solucionar un problema 
matematico y adivinar" 

220 PRINT" que simbolo corresponde a que numero 
(de 0 a 9)" 

230 PRINT" Simbolos diferentes corresponden a diferentes 
numeros." 

Ponga Vd. atención a los espacios libres al introducir este 

texto, para que la portada presente un aspecto adecuado. 
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Ahora vamos a determinar el funcionamiento del juego, o sea 
como se han de efectuar las entradas e indicarlo en la 
portada. 


Para que el problema sea más claro, vamos a representar por 
debajo de los símbolos del sistema de ecuaciones, todos los 
símbolos en una |Tnea horizontal. Por debajo de esta línea 
se podrá mover un pequeño arterisco ¡ntermitente de 
izquierda a derecha que podrá situarse por debajo de cada 
sÍmbolo. Si se ¡ntroduce un número, éste aparecerá por 
encima de cada símbolo correspondiente en las ecuaciones. 


Añadimos a la portada: 


240 PRINT "Para introducir un numero para un simbolo, hay 
que posicionar" 

250 PRINT "el arterisco (*) intermitente por debajo del 
simbolo correspondiente" 

260 PRINT "e introducir el numero." 

270 PRINT "L= * hacia la izquierda, R= * hacia la derecha" 

280 PRINT "*** otras posibilidades ***" 

290 PRINT "D = borra el anterlor pronostico" 

300 PRINT "V = admite el valor para el simbolo por encima 
del arterisco" 

310 PRINT "S = solucion del problema" 


320 PRINT "N = nueva partida" 

330 PRINT "E = final del juego" 

340 PRINT " "s FLASH 1; "por favor pulsar tecla" 
350 1F INKEY$=" " THEN GO TO 350 


360 BEEP.03,7 
370 CLS : PRINT FLASH 1; AT 10,9;"esperar por favor";AT 9,9; 
" ";AT A PS 


Si Vd. ha introducido todo esto bien, la pantalla no deberfa 
estar llena después del comando RUN, o sea no debe surgir la 
pregunta ¿SCROLL? Si este fuera el caso, corríjalo para que 
quepa totalmente en una página. 


63 


Ahora tenemos que solucionar nuestro primer pequeño 
problema: tenemos que redactar el sistema de ecuaciones. En 
total surgen 9 números, de los cuales sólo podemos eleglr 
algunos libremente, o sea a través del generador aleatorio 
del Spectrum. Vamos a memorizar estos números en el campo 
a(1i). Vamos a dejar esto claro: 


a(1) + a(2) = a(3) 
+ + + 


a(4) + a(5) = a(6) 


a(7) + a(8) a(9) 


El. mayor número posible será el 9999, para que tengamos 
suficiente espacio en la pantalla. De estos números, all), 
a(2), al(4) y a(5) son libremente elegibles, pero a(2), a(4) 
y a(5) no pueden ser muy elevados, para que en las sumas no 
resulte ningún número de cinco cifras. 


Eli jamos el sigulente esquema: 


1010 LET a(1) = 1+INT(5000*RND) 

1020 LET a(2) = 1+INT(1000*RND) 

1030 LET a(4) = 1+INT(1000*RND) 

1040 LET a(3) = a(1l)+a(2) 

1050 LET a(5) = 1+INT((8000-—a(1))*RND) 


Y el resto está claro: 

1060 LET a(6) = a(4) +a(5) 
1070 LET a(7) = a(1) +a(4) 
1080 LET a(8) = a(2) +a(5) 
1090 LET a(9) = a(3) +al6) 


Podemos añadir una condición de seguridad: 


1100 IFa(9)>9999 THEN GO TO 1010 


En las magnitudes a(1l) hasta a(9) se encuentran ahora los 
números deseados. Esto ha sido más fácil de lo que se 
suponía. Ahora podemos dificultar el problema permitiendo no 
sólo adiciones , sino también sustracciones. Por ejemplo, 
podemos componer el siguiente sistema: 


a(1) + a(2) = at3) 
+ - + 
a(4) - a(5) = a(6) 


a(7) + a(8) a(9) 


'" 


Esto se soluciona de forma similar al primer ejemplo, pero 
sin duda trae consigo alguna problemática. Dejemos que el 
generador aleatorio decida la cuestión a plantear, y 
redactemos este segundo problema. 


Primero introducimos: 
1000 LET s=0: IF RND<.5THEN GO TO 1200 


De esta forma, cada posibilidad tiene la misma probabilidad. 
Sigamos con la línea 1200 


1130 GO TO 1300 
1200 LET s=1 


Cuando s=0, tenemos el primero, cuando s=1, «l segundo 
problema. Ahora procedamos como en el primer problema, pero 
poniendo atención para que ningun número calculado sea menor 
de 0. Esto se consigue asf: 


1210 LET a(1) = 1+ INT (5000*RND) 

1220 LET a(2) = 100+INT (900*RND) 

1230 LET a(4) = 100+[NT (900*RND) 

1235 LEF a(3) = a(l)+a(2) 

1240 LET a(7) = a(1)+a(4) 

1245 LET a(5) = 1+INT (1000*RND) 

1250 qe a(5)>=a(2) OR a(5)>=a(4) THEN GO TO 1245 
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1260 LET a(8) = a(2)-a(5) 
1265 LET a(6) = a(4)-a(5) 
1270 LET a(9) = a(3)-a(6) 


'" 


Sl ahora introducimos 
50 DIM a(9) 
hemos terminado esta parte del programa. 


Ahora tenemos que proporcionarnos los símbolos. En el 
Spectrum disponemos previamente de ocho símbolos gráficos, 
pero nos faltan dos para poder disponer de uno para cada 
cifra del 0 al 9. Aquí nos ayudan los UDGs, o sea los 
símbolos USER DEFINED GRAFICS. Como está descrito en el 
manual, podemos definir otros símbolos. Nosotros elegimos 
triángulos. Si elegimos los triángulos espectacularmente 
simétricos, tenemos menos trabajo: 


20 DATA 128,192,224,240,248,252,254,255 
30 FOR ¡i=0 TO 7: READ xn: POKE USR "A" + [,xn: 
POKE USR "B" + 7-1,xn:NEXT ¡ 
Ahora almacenamos todos los símbolos en el campo af con 
80 LET as > "hal FT y "11M mad” 
Cada uno de los 9 números ali) debe ser representado ahora 
por símbolos. Para ello generamos los números del O al 9 en 


un orden ' casual': 


1300 FOR ¡=1 to 10 
1310 LET z(1) = INT (10%*RND) 


El primer número puede ser uno cualquiera, en todos los 
demás hay que comprobar si el número siguiente ya existe. 


1320 IFT ¡=1 THEN GO TO 1360 
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1330 FOR k=1 TO 1-1 

1340 IF ABS (z(k)-z(1))<=0.5 THEN GO TO 1310 
1350 NEXT k 

1360 LET z$(1)=a$(z(1+1)) 

1370 NEXT 1 


En el campo z(i) se encuentran ahora los números del O al 9 
en un orden aleatorio y en la cadena z5$(1) se encuentran los 
símbolos gráficos. z$(1) es un campo como a$, sólo que en a$ 
se encuentran los números siempre en el mismo orden, 
mientras que en z$ están en un orden aleatorio. 


El siguiente problema es colocar cada uno de estos números 
en su lugar adecuado para que cada cifra de los mismos a(i¡) 
sea sustituída por un símbolo. Tenemos que fijarnos en que 
los símbolos en las cadenas que representan los números, 
empiecen por el margen derecho. Esto parece complicado, pero 
simplemente significa que las "unidades ' estén bajo las 
*'unidades', las 'decenas' bajo las 'decenas', etc. 


Para conseguir esto transformamos los números ai) en 
cadenas. Estas cadenas se copian luego a cadenas w%5 
alineadas al margen derecho, y hemos conseguido lo que 
quer Tamos. 


1380 FOR ¡=1 TO 9 

1390 LET q$(1) = STR$ ati) 

1400 LET 1=LEN (STR$ (a(1))) 

1410 FOR k=1 TO 1 

1420 LET w$(1,5-k)=z$(VAL (q$(1,1+1-k))+1) 
1430 NEXT k 

1440 NEXT ¡ 


Tenemos que dimensionar aún los campos utilizados: 


60 DIM z(10): DIM z$(10) 
70 DIM q$(9,5): DIM w$(9,4) 
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Después de estos trabajos prevlos, podemos visualizar el 


problema en la pantalla: 


2000 CLS 3 PRINTW===========------ PROBLEMA === 
2010 PRINT AT 17,03 === 


2020 FOR ¡=1 TO 10: PRINT AT 19,3*1-1525(2(1)+1): NEXT 1 
2030 PRINT AT 13,0, "--" 
2040 PRINT AT 21,0"--" 


1 


2050 FOR 1=0 TO 13: PRINT AT 1,0;"--"5 AT 1,31;"-—: NEXT ¡ 
2060 FOR ¡"17 TO 21: PRINT AT 1,0;"--"; AT 1,313 "--: NEXT 1 


2070 FOR ¡=1 TO 9 

2080 LET k=0: LET n=0 

2090 IF ¡=2 OR ¡=5 OR 1=8 THEN LET k=1 
2100 IF ¡=3 OR ¡=6 OR ¡=9 THEN LET k=2 
2110 IF at(i)>9 THEN LET n=1 

2120 IF a(i)>99 THEN LET n=2 

2130 IF a(1)>999 THEN LET n=3 

2140 LET y(1) = 6-2*n+10*k 

2150 LET f(1)=10*k 

2160 LET LET x((1)=2+4*INT ((1-1)/3) 
2170 NEST ¡ 

2180 FOR i=1 TO 9 

2190 FOR k=1 TO 4 

2200 PRINT AT x(1)+1,f(1)+2*k3w$(1,k) 
2210 NEXT k 

2220 NEXT ¡ 


Con esto hemos colocado todos los sfÍmbolos en su lugar 
correcto, y sólo nos queda introducir los símbolos de restar 


y Sumar. 


2230 PRINT AT 3,10; "+"; AT 3,203"=" 

2240 PRINT AT 7,10; "+"; AT 7,203"=" 

2250 PRINT AT 11.103"+"; AT 11,201=" 

2260 PRINT AT 5,6;"eM;AT 5, 16;"eM; AT 5,26,1+" 
2270 PRINT AT 9,6;"=";AT 9,16;"=" AT 9,26;1=" 


Para el caso de que también se encuentren sustracclones, 
que añadir: 


2280 1S s>=1 THEN PRINT AT 7,10;"-";AT 5,16"-" 
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hay 


La pantalla se ha compuesto de tal manera que quede aún 
espaclo para explicaciones. 


3000 REM Cursor 


3010 LET x=21 

3020 LET y=2 

3100 PRINT FLASH 1;AT x,y; "*" 

3200 PRINT AT 14,0;"D=* derecha | = * [zquierda" 
3210 PRINT AT 15,0;"B=borra, V = Dar valor" 


3220 PRINT AT 16,0;"S=solucion,O=otra partida,F=fin" 
3300 PAUSE 0: LET m$ = INKEYS 

3310 IF m$= "i" THEN BEEP . 1,1: GO TO 3700 

3320 IF mé= "d" THEN BEEP . 1,1: GO TO 3800 

3330 IF m$= "f" THEN GO TO 6000 

3340 IF m$= "o" THEN GO TO 1 

3350 IF m$= "v" THEN BEEP . 3,5: GO TO 3800 

3360 IF m$= "s" THEN GO TO 4ppp 

3370 IF m$= "b" THEN BEEP . 3,5: GO TO 5000 

3380 IF CODE m$<58 AND CODE m$>47 THEN GO TO 5000 
3390 BEEP .05,5: BEEP +. 1,1 

3400 GO TO 3300 


Con esto hemos fijado las restantes rutinas. A partir de la 
línea 3700, el cursor se mueve hacia la derecha, y a partir 
de la línea 3800 hacia la izquierda. A partir de la línea 
6000 se finaliza el juego, a partir de la línea 7000 el 
ordenador da un valor para apoyar al jugador, a partir de la 
línea 4000 se indica la solución del problema, y a partir de 
la |fnea 5000 se efectúa la introducción o el borrado de un 
pronóstico. 


3700 1F y>27 THEN GO TO 3300 
3710 LET y=y+3 

3720 PRINT AT x,y-3;"" 

3730 PRINT FLASH 15AT x,y; "*" 
3740 FOR 1=1 TO 50: NEXT ¡ 
3750 GO TO 3300 


3800 IF y<3 THEN GO TO 3300 


3810 LET y=y-5 
3820 PRINT AT x,y+3;3"" 
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3830 PRINT FLASH 1;AT x,y3"*" 
3840 FOR ¡=1 TO 50: NEXT ¡ 
3850 G0 TO 3300 


El final del programa es bastante sencillo: 


6000 PRINT AT 21,6;"Otra partida? S/N" 
6010 PAUSE 0: LET m$=INKEY$ 

6020 |F m$="s" THEN GO TO 1 

6030 CLS : STOP 


La solución del problema también se puede indicar bastante 
fácilmente: 


4000 REM solución 
4010 FOR ¡=1 TO 20: BEEP .05,1: BEEP .05,-4: NEXT 1 


Esta línea no es necesaria pero queda muy bien. 


4020 FOR ¡=1 TO 9 

4030 FOR k=1 TO 4 

4040 IF q$(1,k)= " " THEN GO TO 4060 
4050 PRIN AT x(¡),y(1)+2*k;q5(1,k) 
4060 NEXT k 

4070 NEXT ¡ 

4080 FOR i=1 TO 10 

4090 PRINT AT 18,3*1-1;5z(1) 

4100 LET g(i)=z(1) 

4110 NEXT 1 

4120 PRINT AT 14,0; PAPER 2,,,>,»,, 
4130 PRINT FLASH 1; AT 15,6;''Esta es la solución'' 
4140 GO TO 6000 


La línea 4100 «es algo extraña. Queremos utilizar el campo 
gí(l) para contabilizar los símbolos acertados, de forma que 
en cada pronóstico se pueda comprobar si ya se ha encontrado 
la solución. Para ello escribimos al principio en todos los 
g(1) un número mayor que 9, por ejemplo 22. 


También puede Vd. escribir el 432 si lo prefiere. 


100 FOR I=1 TO 10: LET gli) = 22: NEXT 1 


Se salta a la línea 5000 cuando se va a hacer 
introducción o a borrar la misma. 


5000 REM ¡ntroducir pronóstico 

5010 LET ¡$=m$ 

5020 IF m$=d"THEN LET ¿$=" ": LET g(INT (y/3)+1)=22: 
GO TO 5200 

5030 LET G(INT (y/3)+1)=VAL ¡$ 

5040 BEEP .04,1: BEEP .04,8 

5200 FOR ¡=1 TO 9 

5210 FOR k=1 TO 4 

5300 IF w$(¡,k)=z$(z(y/3)+1)THEN LET c$(1,k)=j$ 

5310 NEXT k 

5320 NEXT 1 


una 


Esto es algo complicado, pero funciona. En c$ se encuentra 
todo lo que ha sido acertado. Ahora sólo tenemos que ponerlo 


al día. 


5500 PRINT AT 18,y;j$ 

5600 FOR ¡=1 TO 9 

5610 FOR k=1 TO 4 

5620 PRINT AT x(1),f(1)+2*k;c$(1,k) 
5630 NEXT k 

5640 NEXT 1 


Ahora se comprueba s| se ha encontrado la solución: 


5800 FOR ¡=1 TO 10 
5810 IF g(1) <> z(1) THEN GO TO 3300 
5820 NEXT 1 


5830 PRINT AT 14,0; PAPER 2,,,>,> 
5840 PRINT FLASH 1; AT 15,8, "H.A..G.A.N.A.D.O." 
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En este caso se sigue automáticamente con la línea 6000 con 
la pregunta ''0tra partida?'. Lo que aún nos talta, es la 
rutina la cual indica el número correspondiente a un sÍTmbolo 
para ayudar al jugador, sl así lo desea. 


7000 REM ¡indicar un número 

7010 PRINT AT 18,y3z (INT (y/3+1)) 

7020 LET glINT ((y/3)+1))=zC1NT ((y/3)+1)) 
7030 FOR ¡=1 TO 9 

7040 LET j¡=0: |F a(I) <1000 THEN LET ¡=1 
7050 IF a(I) <100 THEN LET j¿=2 

7060 IF a(f) <10 THEN LET ¿=3 

7070 FOR k=1 TO 4 

7080 IF w$(i,k)=z$(2(y/3)+1) THEN LET c$(1,k)=q$(1,k-j) 
7090 PRINT AT x(¡),y(1)+2*(k-j);c5(T1,k) 
7100 NEXT k 

7110 NEXT 1 

7120 60 TO 3000 


Las |Tneas del principlo, en las cuales se dImenslonan los 
campos, han de ser ampliadas de la siguiente forma: 


50 DIM a(9): DIM x(9): DIM y(9): DIM f(9): DIM g(10) 
60 DIM z$(10): DIM 2(10) 

70 DIM q5$(9,5): DIM w$(9,4): DIM c4(9,4) 

Al final añadimos: 


10 CLEAR: RESTORE: FOR ¡=1 TO 20: BEEP .5/1,1: NEXT ¡ 


y hemos terminado. Al final del capítulo veremos el listado 
total del programa sin interrupciones. 


Y ahora ¡que lo pase blen adivinando! 
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REM AAREXEARERE SACARA 
REM EERALARRAALRAARA CAI 
REM 

REM FERRE-MORET 
REM 

REM EEARELLARA CLARA RARA 
REM ARAEABACALA AAA AAA 


CLEAR 3: RESTORE : FOR i=1 TO 20: BEEP .5/i,i:z NEXT i 
DATA 128,192,224,240, 248,252, 254,255 
FOR i=0 TO 7: READ xn: POKE USR "a"+i,xnm: POKi USR "b"+ 
7-i,xms NEXT i 

40 PAPER 6: BORDER 3: INK O 

50 DIM a(9): DIM x(9)13 DIM y(9): DIM $f(9): DIM g(10) 

60 DIM z$(10): DIM z (10) 

70 DIM q$19,5): DIM w$(9,4): DIM c$(9,4) 

80 LET as$=" - 

81 REM a$(1),a$(2),..,a$(10) son, respectivamente CHR$ de 
142, 141, 139, 137, 134, 135, 143, 144, 140 y 145 

90 LET s=0 

100 FOR i=1 TO 10: LET q(íi)=22: NEXT i 

200 CLS 2: PRINT "ADIVINAR SIMBOLO"” 

210 PRINT ” Se trata de solucionar un problema matemat 
ico, y adivinar" 

220 PRINT "que simbolo corresponde a una citra (de O a 9) 


885 TR AA 


230 PRINT “Simbolos diferentes correspondena diterentes cif 
ras.” 

240 PRINT " Para introducir una Cifra paraun siabolo hay 
que posicionar” 

250 PRINT "el asterisco intermitente debajodel simbolo corr 
espondiente e" 

260 PRINT “introducir la cifra.” 

270 PRINT "I=% a la izq. D =k a la der.” 

280 PRINT ”"XxX%% Otras posibilidades xxx" 

290 PRINT “B = Borra pronostico anterior" 

300 PRINT "V = Asigna el valor al simbolo situado sobr 
e el asterisco" 

310 PRINT "S = Solucion del problema" 

320 PRINT “N = Nueva partida" 

330 PRINT *F = Final del juego" 

340 PRINT * "3 FLASH 1;"POR FAVOR PULSE UNA TECLA” 


350 IF INKEYS="" THEN GO TO 350 

360 BEEP .03,7 

370 CLS : PRINT FLASH 1;AT 10,6; "ESPERE POR FAVOR”";AT 9,6; 
” "s AT 11,63" " Y 
1000 IF RND<.S THEN GOD TO 1200 

1010 LET a(1)=1+INT (SO00XRND) 

1020 LET a(2)=1+INT (1000%XRND) 

1030 LET a(4)=1+INT (1000£RND) 

1040 LET a(3)=a11)+a(2) 

1050 LET a(5)=1+INT _ ((8000—a (1) ) XRND) 

1060 LET at6)=a(4)+a(5) 

1070 LET a(7)=a(1)+a(4) 

1080 LET a(B)=a(2)+a(5) 

1090 LET a(9)=a(3)+a16) 

1100 1F a(9)>9999 THEN 60 TO 1010 

1130 GO TO 1300 

1200 LET s=1 

1210 LET a(1)=1+INT (SO00£RND) 

1220 LET a(2)=100+INT (9003RND) 

1230 LET a(4)=100+INT (FOOERND) 

1235 LET a(3)=a(1)+a(2) 

1240 LET a(7)=a(1)+a(4) 

1245 LET a(5)=1+INT (1000%RND) 

1250 IF a(5)>=a(2) OR a(5)>=a(4) THEN 60D TO 1245 
1260 LET a(8)=a(2)-a(5) 

1265 LET at6)=a(4)-a(5) 

1270 LET a(9)=a(3)+a(6) 

1300 FOR 1=1 TD 10 

1310 LET 2(i)=INT (10%RND) 

1320 IF i=1 THEN GO TO 1360 

1330 FOR k=1 TO i-1 

1340 IF ABS (z(k)-z(i1))<=0.5 THEN 60D TO 1310 
1350 NEXT k 

1360 LET z$(i)=a5$(z (1)+1) 

1370 NEXT i 

1380 FOR i=1 TO 9 

1390 LET q$(i)=STRS$ ali) 

1400 LET 1=LEN (STR$ (a(i))) 

1410 FOR k=1 TO 1 

1420 LET wS(i,5-k)=zS5(VAL (q6$(i,1+1-k))+1) 
1430 NEXT k 

1440 NEXT i 
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CLS 2 PRINT ” PROBLEMA só 


PRINT AT 17,03" > 


FOR i=1 TO 10: PRINT AT 19,3%i-13z8$(z(i)+1)2: NEXT i 


PRINT AT 13,03” 
PRINT AT 21,03” ». 


FOR i=0 TO 13: PRINT AT 1,03" "¿AT 1,313" ": NEXT i 
FOR i=17 TO 213 PRINT AT i,03" "¿AT 1,313" "z NEXT á 


FOR i=1 TO 9 

LET k=03 LET n=0 

IF i=2 OR i=5 OR i=8 THEN LET k=1 

IF i=3 OR i=6 OR i=9 THEN LET k=2 

IF a(i)>9 THEN LET n=1 

IF a(i>>99 THEN LET n=2 

IF a(i>>999 THEN LET n=3 

LET y(1)=6-28n+108k 

LET $(i)=10Xk 

LET x(i)=2+4xX INT ((i-1)/3) 

NEXT i 

FOR iz1 TO 9 

FOR k=1 TO 4 

PRINT AT x(1)+1,Ff (1)+2Ek3w8(i,k) 

NEXT k 

NEXT i 

PRINT AT 3,103"+";AT 3,20;"=" 

PRINT AT 7,10353"+"3AT 7,203 "=" 

PRINT AT 11,10;“+"“;AT 11,20;“=" 

PRINT AT 5,63"+"3AT 5,163"+"3AT 5,263 "+" 
PRINT AT 9,6;"=";AT 9,163"=";AT 9,263 "=" 

IF s>=1 THEN PRINT AT 7,10;“-";AT 5,163"-" 
REM cursor 

LET x=21 

LET y=2 

PRINT — FLASH 1;AT x,y;5"x" 

PRINT AT 14,03"I = X izquerda D x derecha” 
PRINT AT 15,0;"B = borrar v dar valor” 
PRINT AT 16,0; "S=solucion N=nueva part. F=fin" 
PAUSE O: LET a$=INKEYS 

IF m$="d" THEN BEEP .1,1: 60 TO 3700 

IF mé="i" THEN BEEP .1,1:z 60 TO 3800 

IF m$="f" THEN GO TO 4000 

IF m$="n" THEN 60 TO 1 
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3350 IF m$6="v" THEN BEEP .3,5: 60 TO 7000 
3360 IF m$="s"” THEN GO TO 4000 

3370 IF m$="b" THEN BEEP .3,5: GO TO 5000 
3380 IF CODE m$<58 AND CODE am$>47 THEN 60 TO 5000 
3390 BEEP .05,5: BEEP .1,1 

3400 GO TOD 3300 

3700 IF y>27 THEN 60 TO. 3300 

3710 LET y=y+3 

3720 PRINT AT x,y-35" ” 

3730 PRINT FLASH 1;AT x,y3"x*x" 

3740 FOR iz=1 TO 50: NEXT i 

3750 60 TO 3300 

3800 IF y<3 THEN GO TO 3300 

3810 LET y=y-3 

3820 PRINT AT x,y+33" " 

3830 PRINT FLASH 13AT x,y3"x" 

3840 FOR i=1 TO 50: NEXT i 

3850 GO TO 3300 

4000 REM solucion 

4010 FOR i=1 TO 20: BEEP .05,1: BEEP .05,1: BEEP .05,-4: NEX 
Ti 

4020 FOR i=1 TO 9 

4030 FOR k=1 TO 4 

4040 IF q$(i,k)=" " THEN GO TO 4040 

4050 PRINT AT x(i),y(1)+2%Xk3q$(i,k) 

4060 NEXT k 

4070 NEXT i 

4080 FOR i=i TO 10 

24090 PRINT AT 18,3xXi-1;z(i) 

4100 LET gíi)=z (i> 

4110 NEXT i 

4120 PRINT AT 14,0; PAPER Z,,,++ 

4130 PRINT FLASH 1;AT 15,6;"ESTA ES LA SOLUCION: * 
4140 60 TO 6000 

5000 REM introducir pronostico 

5010 LET jó=ms 

5020 IF ms$="b" THEN LET j$=" "2: LET gC(INT (y/3)+1)=22: 60 T 
O 5200 

5030 LET g(INT (y/3)+1)=VAL j% 

5040 BEEP .04,1: BEEP .04,8 

5200 FOR i=1 TO 9 

5210 FOR k=1 TO 4 
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5300 IF w$(i,k)=z$(z (y/3)+1) THEN LET c$(i,k)=3$ 
5310 NEXT k 

5320 NEXT i 

5500 PRINT AT 189,y5,j$ 

5600 FOR i=1 TO 9 

5610 FOR k=1 TO 4 

5620 PRINT AT x(i1),+(1)+2%k;3c$(i,k) 

5630 NEXT k 

5640 NEXT i 

5650 PRINT AT 13,6;” . 
5800 FOR i=1 TO 10 

5810 IF g(i»<>z(i) THEN 6D TO 3300 

5820 NEXT i 

5830 PRINT AT 14,0; PAPER 2,5,» 

5840 PRINT FLASH 1;54T 15,93"HA GANADO" 
6000 PRINT AT 21,6; "Otra partida 7 (s/n)” 
6010 PAUSE O: LET m$=INKEYS 

6020 IF m$="s" THEN GO TO 1 

6030 CLS : STOP 

7000 REM introducir una citra 

7010 PRINT AT 18,y3z (INT (y/3+1)) 

7020 LET g(INT' ((y/3)+1))=z (INT ((y/3)+1)) 
7030 FOR i=i TO 9 

7040 LET j=0: IF ati)<1000 THEN LET j3=1 
7030 IF a(i)<100 THEN LET j=2 

7060 IF ati)<10 THEN LET j=3 

7070 FOR k=1 TO 4 

7080 IF wS(i,k)=z$1z (y/3)+1) THEN LET cs(i.k)=q$1i,k-3) 
7090 PRINT AT x(i),y(1)+2% (k-j)5c$(i,k) 
7100 NEXT k 

7110 NEXT i 

7120 60 TO 3300 
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ADIVINAR SIMBOLO 
Se +trata de solucionar un problema matematlco, y adivinar 
que simbolo correspondea una cifra (de O a 9), 
Simbolos diferentes corresponden a diferents cifras. 
Para Introducir una cifra para un simbolo hay que posiclonar 
el asterisco Intermitente debajo del simbolo correspondiente 
e Introducir la cifra. 
| =Ha la Izq. D=Ho la der. 


e Otras posibilidades ***x* 
Borra pronostico anterior 
Aslgna el valor al simbolo situado sobre el asterlsco 
Solucion del problema 
Nueva partida 
Final del juego 
POR FAVOR PULSE UNA TECLA 


" 


NnZO< 
" 
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CAPITULO 6: 
SPECTRUM ESPECTACULAR: 
DIA Y NOCHE EN LA TIERRA 


Desarrollo del programa 


En este capítulo se va a elaborar un programa que en 
realidad es superfluo y no es de ninguna utilidad. Además es 


difícil ¡introducirlo para que funcione ordenadamente. ¿Por 
qué todo este trabajo?. Bien; cuando esté terminado 
demuestra las cualidades gráficas del Spectrum y nos 


proporciona además un mapa mundi sobre la pantalla. 


Para que el programa sea un poco interesante y divertido, 
vamos a Introducir un reloj, e indicar las zonas de día y 
noche en la tierra. Estas zonas deben de estar sincronizadas 
con el reloj y adaptarse automáticamente a la duración del 
día durante el invierno y el verano. 


Cuando hayamos conseguido esto, el programa no resultará tan 
aburrido. Además, el mapa mundi puede memorizarse con 'SAVE 
name SCREEN$' y utilizarse como portada. 


De manera práctica repesentaremos los mares en color azul, 
las zonas de día en amarillo y las de noche en negro. Para 
ello tenemos que solucionar un pequeñno problema. El Spectrum 
dispone de una resolución gráfica bastante elevada, pero en 
cada posición solo pueden representarse dos colores: uno 
para el fondo y otro para el primer plano. En nuestro caso, 
en las "costas! en la transición de día y noche pueden 
interferirse tres colores: el mar azul, tlerra negra y 
amarilla. 
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Pero sí a. tualizamos estas rona3 zada hora, y nos lo 
arreglamos de torma que una hora corresponda a una posición 
en la pantalla, o sea 8 Pixels, podemos solucionar el 
orchlema. En este caso los tres colores se juntan justamente 
en el límite de dos posiciones. 


Los datos para el mapa mundi los introduciremos por medio de 
comandos DATA y los  leeremos por medio de READ en el 
programa.» Para ello, dibujamos sobre un mapa mundi adecuado 
un pautado de 102 por 192 cuadrados. Después buscamos en 
cada fila de cuadrados, por ejemplo en dirección Sur—Norte, 
aquéllos en los cuales el mar limite con la tierra y los 
introducimos por medio de DATA. Cuando una fila está 
terminada, introducimos dos ceros, de manera que el programa 
sabe que hay que pasar a la sigulente fila. 


Naturalmente, Vd no tiene que pasar por esta tortura. 
Unicamente está explicada para que Vd. sepa como se han 
elaborado los datos en el listado de DATA. 


Después .de haber ¡introducido los datos (  ¡diviértase 
tecleando!), podemos dedicarnos al programa propiamente 
dicho. Primero nos saltamos los DATAs, que comienzan en la 
línea 132, en introducimos: 


10 GO TO 8000 


Para que el título sobresalga, podemos utilizar la letra 
“grande - rutina del capítulo 4 - que introducimos a partir 
de la línea 20. Entonces seguimos: 


8000 CLS : LET yf="'Día y noche en la tlerra''":LET xpos=0: 
LET ypos=2: GO SUB 20 
8010 PRINT AT 9,0;''Mientras el programa trabaja, significan 
v adelantar reloj h parar el reloj n normal 
u corrección del reloj e final" 
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8020 PRINT'"El programa debe ser iniciado el primero de mes" 

8030 PRINT '"En caso de final, introduzca por favor e y 
ENTER" 

8040 PRINT AT 5,O;FLASH 1; "mes =(por ejemplo enero=1,etc.)" 

8050 INPUT LINE m$: 1F m$= "e" THEN CLS : STOP 

8055 FOR [=1 TO 12: I|F m$=STR$ | THEN GO TO 8065 

8060 NEXT |: GO TO 8050 

8065 LET mon=VAL m$ 

8070 PRINT AT 5,0,,AT 5,5; FLASH 1;"+tlempo = ? (por ejemplo 
1445)" 

8075 INPUT LINE m$: 1F m$="e" THEN CLS :STOP 

8080 IF LEN m$<>4 AND LEN m$<>3 THEN GO TO 8075 

8090 FOR ¡=1 TO LEN m$ 

8100 IF m$>"9" OR m$< "Q" THEN GO TO 8075 

8110 NEXT 1 

8200 LET hora=VAL m$: LET hr=INThora/100) 

8210 IF hr<0 OR hr>24 THEN GO TO 8075 

8220 LET min=hora-100*hr: 1F min>59 THEN GO TO 8075 

8230 PRINT AT 5,0,,: LET hr=100*hr 


De esta forma hemos preguntado, de manera más o menos segura 
por el mes, y expuesto las posibilidades de mover el reloj. 
Ahora podemos dedicarnos a dibujar el mapa mundi, la 
indicación de la hora, de la traslación del +lempo y dibujar 
el sol. Si, cierto, vamos a dibujar un sol de color rojo que 
brille en aquel punto del mapa mundi donde sean las 12.00. 


7200 FOR ¡=2 TO 4: PRINT AT 1,0,,: NEXT 1: REM sol 
7210 LET yy=150 

7220 LET xx=224-4*hora/50 

7230 CIRCLE xx+8,yy,8 

7240 INK 2 

7250 FOR ¡=-8 TO 8 

7260 FOR k=-8 TO 8 

7270 1F ¡*i+k*k<>64 THEN GO TO 7290 
7280 PLOT xx+8+k,yy+I 

7290 NEXT k 

7300 NEXT ¡ 
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Si ahora ¡ntroducimos una pequeña rutina para editar la 
hora, podemos visualizar todo en el mapa mund!l. 


7000 INK 6: PRINT AT 5,0,,: REM hora 

7010 PRINT AT 5,9; FLASH 1; hrz" reloj "¿min;" horario 
europeo" 

7020 RETURN 


Ahora sigue: 


8300 BORDER 1: PAPER 1: INK 6: CLS 

8310 GO SUB 7000: GO SUB 7200: INK 6 

8320 LET yf= ''Día y noche en la tierra'': LET xpos=0: LET 
ypos=3: INK 7: GO SUB 20: INK 6 

8380 PRINT AT 7,3;" -12 -8 -4 0 +4 +8 +12" 

8340 GO TO 9600 


Esto está muy bien. A partir de la línea 9600 se dibuja el 
mapa mundi, y si es necesario, el reloj, el sol y las zonas 
nocturnas se actualizan: 


9600 LET  seg=3000: REM transcurso 
9610 GO SUB 9000 


En la rutina a partir de |ínea 9000 fijamos para cada mes 
las zonas de día y noche y las calculamos para la hora 
correspondiente, después leemos los datos del mapa y lo 
dibujamos: 


9000 LET antf=32; RESTORE : REM paint map 

9010 DIM f(12) : DIM s(12) 

9020 LET f(1)=3: LET f(2)=4: LET f(3)=5: LET f(4)=6: 
LET f(5)=7: LET 1f(6)=8 

9030 LET f(7)=8: LET f(8)=7: LET f(9)=6: LET f(10)=5: 
LET f(11)=4: LET f(12)=3 

9040 LET s(1)=5: LET s(2)=6: LET s(3)=7: LET s(4)=7: 
LET s(5)=8: LET s(6)=9 

9050 LET s(7)=9: LET s(8)=8: LET s(9)=7: LET s(10)=6: 
LET s(11)=5: LET s(12)=5 
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9060 LET al=xx-8*f(mon): LET a2=xx-8%*s(mon) 


9100 READ x1,x2 

9110 IF x1>8000 THEN GO TO 9280 
9120 IF x1=0 THEN LET anf=anf+1: GO TO 9270 
9200 INK 6 

9210 I1F anf<al THEN INK O 

9220 IF anf<a2-192 THEN INK 6 
9230 |F anf >=a2 THEN INK O 
9240 IF ant>=192+a1 THEN INK 6 
9250 PLOT anf,x1 

9260 DRAW 0,x2-x1 

9270 GO TO 9100 

9280 RETURN 


El. mapa mundi está dibujado, y ahora sólo tenemos que 
conseguir un transcurso adecuado, quiere decirse, la 
posibilidad de ¡ntroducir la posibilidad de corregir el 
reloj, y dibujar cada minuto el reloj y cada hora la 
pantalla totalmente nueva. 


9620 LET min=min+1 

9630 LET dif=0 

9640 IF min=60 THEN LET dif=1 

9650 PAUSE 2325 

9660 GO TO 9710 

9700 PAUSE seg 

9710 IF INKEY$="e" THEN CLS : STOP 
9720 1F INKEY$="y" THEN LET seg=50 
9730 1F INKEY$="h" THEN PAUSE O 
9740 1F INKEYS$="n" THEN LET seg=3000 
9750 1F INKEY$="u" THEN GO TO 8070 


El. adelantado y funcionamiento normal del reloj están 
asegurados ya que la pausa 'seg' cambia su valor+ Ahora la 
marcha del reloj. Tenemos que tener en cuenta que el dibujar 
el mapa mundi lleva algún tiempo, y tenemos que aumentar el 
número de minutos en 1, pues el próximo minuto ha comenzado 
cuando la pantalla estaba lista. 
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9760 LET min=min+ 

9770 |F min>60= THEN LET hr=hr+1 
9780 LET reloj= 100*hr 

9790 IF min>60 THEN LET min=0 
9800 IF hr>24 THEN LET hr=0 
9810 GO SUB 700 

9820 IF min<>0 THEN GO TO 9700 
9830 GO SUB 7200 

9840 GO SUB 9000 

9850 LET min=min+2+dif 

9860 LET dif=0 

9870 PAUSE 2325 

9880 GO TO 9700 


Ahora sólo faltan los DATA. Estos están contenidos en el 
listado total al final del capítulo. 


Cuando Vd. tenga el mapa mundi en su ordenador, puede 
ampliar las posibilidades del programa. Si quiere, puede, 
por ejemplo, dibujar determinados continentes a una mayor 
escala. 
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REM ERRE AER AAA REA 
REM EXEAAAAAAIARE AAA AAA 


1 

2 

3 

4 REM FERRE-MORET 
5 

6 REM KEXERRAAEA AAA AAA 


10 GO TO 8000 

20 FOR i=1 TO LEN ys 

21 LET x=8XCODE ys$(i)+15360 

22 FOR z=0 TO 3 

23 LET a=PEEK (x+z) 

24 LET b=PEEK (x+2z+4) 

25 POKE USR "“a”*"+28%z,a: POKE USR "a"+2Xkz+1,a 

26 POKE USR "b"+28z,b: POKE USR "b"+2Xz+1,b 

27 NEXT z 

28 PRINT AT xpos, yposti-1;" “¡AT xpos+1,yposti-1;3" ": REM 

con Á y B en modo grafico 

29 NEXT i 
30 RETURN 
132 DATA O 
133 DATA O 
134 DATA O 
135 DATA O 
136 DATA 54,54,72,72,78,80,84,84,88, 88 
137 DATA 33,53,72,73,76,82,94,94,96, 
138 DATA 52,52,73,74,753,92,0,0 

139 DATA 50,52,74,75,78,93,0,0 

140 DATA 75,94,0,0 

141 DATA 77,95,0,0 

142 DATA 79,94,0,0 

143 DATA 83,93,0,0 

144 DATA 80,93,0,0 

145 DATA 80,93,0,0 

146 DATA 80,93,0,0 

147 DATA 80,73,0,0 

148 DATA 79,92,0,0 

149 DATA 79,92,0,0 

150 DATA 78,92,0,0 

151 DATA 74,91,0,0 

152 DATA 76,92,0,0 

153 DATA 73,92,0,0 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


74,92,0,0 
72,93,0,0 

70,94,0,0 

69,93,96,796,0,0 

£2,93,95,102,0,0 

60,92,94,102,0,0 

58,92,98,102,0,0 
57,91,93,94,96,99,100,102,0,0 
56,91,93,94,96,99,100,101,0,0 
55,90,92,93,95,100,0,0 
54,55,57,90,93,98,0,0 
53,54, 56, 90,93, 98,0,0 
52,53,55,92,93,98,0,0 

53,92,93,98,0,0 

51,90,93,94,0,0 

49,90,93,93,97,100,0,0 

48,790,796,101,0,0 

48,90,92,92,96,101,0,0 

47,93,96,101,0,0 
44,50,56,90,94,94,96,96,0,0 
47,50,56,80,83,91,93,96,0,0 
46,50,56,68,67,76,85,93,97,100,0,0 
46,52,57,68,70,75,86,91,95,102,0,0 
45,52,57,64,68,68,69,75,84,88,89,102,0,0 
45,48,57,64,68,68,69,75,84,88,89,102,0,0 
44,48,58,68,69,74,84,87,89,102,0,0 


44,46,51,51,56,64,65,67,69,74,B6,88,90,97,0,0 
37,37,44,45,51,51,53,65,66,68,69,72,94,97,0,0 
35,39, 44,45,51,51,53,65,66,68,69,71,94,97,0,0 


34,40,43,45,50,51,59,73,75,83,94,97,0,0 
32,44, 48,50,61,83,88,97,0,0 
6,10,12,19,30,45,52,52,64,81,84,97,0,0 
4,24,28,46,49,51,65,81,83,96,0,0 

2,46, 49,49,66,80,83,95,0,0 
4,44,50,50,66,80,84,70,0,0 
4,4,12,44,49,49,65,697,70,82,84,90,0,0 
4,4,12,45,49,49,65,66,72,80,87,89,0,0 
14, 46, 48, 49,66,66,72,79,889,88,0,0 
14,45,47,47,69,76,0,0 

15,44,67,73,0,0 
16,43,66,72,100,102,0,0 
19,42,69,70,96,102,0,0 3 19) 
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196 DATA 20,41,69,69,88,90,94,96,78,102,0,0 
197 DATA 21,41,85,102,0,0 

198 DATA 22,39,82,102,0,0 

199 DATA 24,39,81,102,0,0 

200 DATA 26,38,80,102,0,0 

201 DATA 26,37,84,102,0,0 

202 DATA 27,37,85,102,0,0 

203 DATA 28,38,86,102,0,0 

204 DATA 32,37,87,102,0,0 

205 DATA 88,102,0,0 

206 DATA 88,102,0,0 

207 DATA 89,102,0,0 

208 DATA 90,102,0,0 

209 DATA 91,102,0,0 

210 DATA 92,95,97,102,0,0 

211 DATA 93,95,97,102,0,0 

212 DATA 93,95,96,102,0,0 

213 DATA 84,87,0,0 

214 DATA 84,88,0,0 

215 DATA 83,88,0,0 

216 DATA 47,54,85,88,0,0 

217 DATA 45,56,0,0 

218 DATA 43,58,61,65,72,75,0,0 

219 DATA 42,60,61,65,72,75,0,0 

220 DATA 42,59,61,65,74,76,79,79,0,0 
221 DATA 43,59,61,65,70,70,72,80,0,0 
222 DATA 43,60,62,65,68,71,72,76,0,0 
223 DATA 43,60,62,71,73,73,0,0 

224 DATA 44,61,64,72,0,0 

225 DATA 43,61,66,73,82,82,0,0 

226 DATA 42,61,67,73,80,83,0,0 

227 DATA 41,61,67,73,80,85,0,0 

228 DATA 41,61,67,74,76,76,80,85,0,0 
227 DATA 40,59,62,62,64,64, 66, 78,80,86,0,0 
230 DATA 37,58,65,74,78,90,0,0 

231 DATA 34,59,62,62,64,65,67, 74,76,92,0,0 
232 DATA 28,30,32,58,62,66,68,74,77,98,0,0 
233 DATA 26,57,65,65,67,74,84,94,0,0 
234 DATA 22,57,64,74,82,B3,85,95,0,0 
235 DATA 19,58,62,78,81,83,85,96,0,0 
236 DATA 18,58,61,78,81,84,86,96,0,0 
237 DATA 19,57,59,59,62,86,88,97,0,0 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


20,58, 64,80,82,97 
21,58,60,64,66,74 
23,57,60,64,66,94 
25,52, 54,58,60,86 
25,51,54,64,67,85 
28,50,53,64,67,87 
29,48,53,63, 66,84 
30,34,38,47,52,63 
30,33,39,46,51,88 
39,45,47,91,0,0 

25,31,40,45,47,88 
25,32,44,46, 48,62 
48,51,54,60,67,89 


49,53, 56,90, 96,96 
50,52, 56,89,91,92 
50,51,55,90,0,0 
51,51,55,90,0,0 
55,90,0,0 
55,90,0,0 
54,92,94,76,0,0 
53,97,0,0 
52,99,0,0 
51,87,89,100,0,0 
50,87,89,100,0,0 
50,88,0,0 
48,88,0,0 
46,90,92,99,0,0 
44,90,92,97,0,0 
43,44,46,99,0,0 
49,100,0,0 

50, 100,0,0 
51,100,0,0 
52,100,0,0 
53,100,0,0 
42,42,52,100,0,0 
41,42,51,100,0,0 
40,42,51,100,0,0 
39,41,43,100,0,0 


38, 40,42, 43,45,100,0,0 
37,39,40,42,44,100,0,0 
36,37,39,41,43,100,0,0 


,0,0 
,0,0 
,0,0 
,88,94,0,0 
,88,93,0,0 
,89,91,0,0 
,88,90,0,0 
,65,88,0,0 
,0,0 


,0,0 
,68,90,0,0 
,93,101,0,0 
48,52,56,89,96, 100,0,0 
,100,100,0,0 
,0,0 
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DATA 35,35,37,38,42,100,0,0 

DATA 34,35,41,100,0,0 

DATA 34,35,37,39,44, 44,48, 100,0,0 

DATA 24,25,34,35,37,40,49,100,0,0 

DATA 23,26,34,35,37,41,49,100,0,0 

DATA 19,26,34,34,38,42,50,99,0,0 

DATA 19,27,41,41,43,43,46,46,53,99,0,0 

DATA 20,28,34,34,36,40,44,44,54,55,57,57,60,60,44,98,0, 


DATA 21,30,36, 40,44, 45,48, 48,63,99,0,0 
DATA 21,31,44,45,64,99,0,0 
DATA 22,32,61,100,0,0 


DATA 
DATA 


22,32,61,100,0,0 


22,33,59,59,62,62,64,97,0,0 


DATA 22,33,59,60,66,97,0,0 

DATA 21,33,39,40,59,60,66,96,0,0 

DATA 19,32,37,38,60,61,66,96,0,0 

DATA 18,31,34,38,61,63,66,74,76,98,0,0 
DATA 17,31,34,389,62,44,66,66,80,98,0,0 
DATA 16,33,35,38,65,74,80,98,0,0 

DATA 14,33,36,38,65,67,72,72,80,97,0,0 
DATA 13,15,17,31,35,34,66,66,80,97,0,0 
DATA 13,15,17,30,35,36,80,97,0,0 

DATA 19,28,35,35,80,76,0,0 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


23,25,80,94,0,0 
81,94,0,0 

73,79,82,94,0,0 
71,80,82,94,0,0 
72,80,82,94,0,0 
74,80,82,93,0,0 
74,81,82,91,0,0 
76,81,83,91,0,0 
78,91,0,0 

13,13,80,94,0,0 
12,14,80,92,0,0 
13,15,81,94,0,0 


14,15,17,19,B2,794,0,0 


15,18,83,94,0,0 
15,17,84,94,0,0 
16,17,84,93,0,0 


16,16,83,83,B4,92,0,0 


88,92,0,0 
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DATA B7,91,0,0 

DATA 86,90,0,0 

DATA 90,90,0,0 

DATA 9999, 9999 

INK 6: LET t=6: PRINT AT 5,0,,: REM hora 

PRINT AT 5,3; FLASH 13st;"h.*"¿min;"min. horario europeo 


RETURN 

FOR i=2 TO 4: PRINT AT i,0,,3z NEXT iz REM sol 
LET yy=150 

LET xx=224-4treloj/50 

CIRCLE xx+8, yy» 8 

INK 2 

FOR i=-9 TO 8 

FOR k=-8 TO 8 

IF ixti+kXk>64 THEN GO TO 7290 


PLOT xx+B+k, yy+i 

NEXT k 

NEXT i 

RETURN 

CLS : LET y$="Dia y noche en la Tierra ? pcb": LET xpo 


LET ypos=0: 60 SUB 20 


PRINT AT 9,0;"Signiticado durante la ejecucionv adelan 
h parar el relojn normal u corregir reloj 
e fin" 


PRINT ?" El programa ha de iniciarse a primero de mes. 


PRINT ”"Para finalizar pulsar e y ENTER” 

PRINT AT 5,0; FLASH 1;"mes = ? (p.ej. Enero <=> 1 )"” 
INPUT LINE m$: IF ms$="e" THEN CLS : STOP 

FOR i=1 TO 12: IF m$=STR$ i THEN GO TO 8065 

NEXT is GO TO 8050 

LET mes=VAL ms 

PRINT AT 5,0,,AT 5,55 FLASH 1;"hora = ? (p.ej. 1445)" 
INPUT LINE m$: IF a$="e" THEN CLS : STOP 

IF LEN m$<>4 AND LEN m$<>3 THEN 60 TO 8075 

FOR i=1 TO LEN m$ 

IF m$(i)>"9" OR m$(i)<”0"” THEN GO TO 8075 

NEXT i 2 

LET reloj=VAL m$: LETÁL+=INT (reloj/100) 

IF st<0 OR st>24 THEN GO TO 80735 

LET min=reloj-100%st:z IF min>59 OR min<O THEN GO TO 80 
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8230 PRINT AT 5,0,,: LET reloj=100%st 

8300 BORDER 1: PAPER 1: INK 6: CLS 

8310 60 SUB 7000: GD SUB 7200: INK 6 

8320 LET yS$="dia y noche en la Tierra": LET xpos=0: LET ypos 
=31 INK 7: GO SUB 20: INK 6 

8330 PRINT AT 7,3;"-12 -9 -24 O +4 +8 +12" 
8340 60 TO 9600 

9000 LET anf=32: RESTORE : REM pintar mapa 
9010 DIM £(12): DIM s(12) 

9020 LET f(1)=3: LET f$(2)=42 LET +(3)=5: LET +(4)=6: LET +(5 
)=72 LET f(6)=8 

$030 LET £(7)=8: LET £(8)=7: LET +4(9)=62 LET £(10)=52 LET £( 
11)=42 LET £(12)=3 

9040 LET s(1)=5: LET s(2)=6: LET s(3)=7: LET s(4)=7: LET s(5 
)=8: LET s(6)=9 

7050 LET s(7)=9: LET s(8)=Baq LET s(9)=7: LET s(10)=6: LET sí 
11)=53 LET 5(12)=5 

9060 LET al=xx-8%f (mes): LET a2=xx+8%s (mes) 
9100 READ x1,x2 

9110 IF x1>8000 THEN 60 TO 9280 

9120 IF x1=0 THEN - LET anf=anf+1: GO TO 9270 
9200 INK 6 

9210 IF anf<al THEN  INK O 

9220 IF anf<a2-192 THEN —INK 6 

9230 IF anf>=a2 THEN INK O 

9240 IF anf>=192+a1 THEN —INK 6 

9250 PLOT anf,xi 

9260 DRAW 0,x2-x1 

9270 60 TO 9100 

9280 RETURN 

9600 LET seg=3000: REM transcurso 

9619 GO SUB 9000 

9620 LET min=min+1 

9630 LET dif=0 

9640 IF min=60 THEN LET dif=1 

9650 PAUSE :2325 

9660 GD TO 9710 

9700 PAUSE seg 

9710 IF INKEYS="e" THEN CLS 3 STOP 

9720 IF INKEYS="v" THEN LET seg=50 

9730 1F INKEYS="h" THEN PAUSE O QfÍ 

9740 IF INKEYS="n" THEN LET seg=3000 

9750 IF INKEYS="u" THEN GD TO 8070 

9760 LET min=min+1 

9770 1F min>=60 THEN LET st=st+1 

9780 LET reloj=100%st 

9790 IF minm>=60 THEN LET min=0 

9800 IF st>=24 THEN LET st=0 

9810 GO SUB 7000 

9820 IF min<>0 THEN GO TO 9700 

9830 60 SUB 7200 

9840 GO SUB 2000 

9850 LET min=min+2+di+ 

9860 LET dif=0 

9870 PAUSE 2325 

9880 G0 TO 9700 
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"CAPITULO 7: E 
APARATOS ADICIONALES Y AMPLIACIONES 


Introducción 


Tarde 6 temprano,- a todos los propietarios de ordenadores 
personales les. sucede, lo: .mismo: - buscan accesorios para 
- mejorar - “sus sistema, ampliar. o, simplemente, calmar sus 
ansias de juegos c : . 


La. propia empresa * Sinclair comercializa una serie de 
aparatos adicionales,. como son el Interface 1 Y los 
Microdrives que amplían seriamente las posibilidades del 
ordenador: Gracias a la gran divulgación del Spectrun, un 
gran número de empresas independientes se han especializado 
en la producción de periféricos para ordenadores Sinclair. 
De esta forma existe para el Spectrum, como para ningún otro 
ordenador, una gran variedad para elegir que sólo está 
limitada por el propio presupuesto financiero. 


El. primer paso es, casi siempre,una impresora, ya que el 
editar programas largos es un trabajo laborioso, si sólo se 
dispone de la pantalla. La oferta más económica es la 
miniimpresora de Sinclair. Se puede conectar directamente al 
Spectrum y escribe sobre papel metálico. Desde luego, este 
papel no es muy barato. Tampoco la calidad de impresión es 
imponente. Entretanto, la producción de este aparato. ha 
cesado. Pero otras empresas fabrican ¡gualmente pequeñas 
impresoras, que escriben sobre papel térmico o sobre papel 
normal dejando una impresión marcada. 
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Si la ¡impresora sólo se utiliza de vez en cuando para 
listados, es suficiente la Impresora Alphacom. Usuarios más 
exlgentes pueden adquirir con la Sejkosha GP 505 una 
verdadera ¡impresora de matriz. Con interface paralelo de 
Centronics es posible conectar muchos tipos de impresoras de 
80 y más carácteres por línea, fabricadas en sí para 
ordenadores mucho más grandes. Estas disponen generalmente 
de un tipo de letra muy agradable, y es posible utilizar el 
Spectrum como pleza básica para un sistema de procesado de 
texto. 


51 de verdad se quiere escribir mucho texto con el Spectrum, 
llegará el momento en el que las teclas de goma no 
satistarán.í Esto no vale, naturalmente, para propietarios 
del Spectrum Plus). Muchas empresas se han dado cuenta de 
este hueco en el mercado, y así exlsten sobradas 
posibilidades. Sinclair ha dado máximas facilidades a estos 
fabricantes de teclados adicionales. El teclado del Spectrum 
es en sÍ una parte separada totalmente del ordenador. Si se 
examina, se verá que del teclado parten dos tiras de cables 
hacla la tarjeta, los cuales estan introducidos simplemente 
en un conector. Cualquier teclado se puede conectar sacando 
estos dos cables e ¡ntroduciéndolos en el nuevo teclado. 


Si ha decidido ¡invertir úuna determinada cantidad en un 
teclado nuevo y abierto el Spectrum, Vd. se verá 
recompensado. Todo este libro se ha redactado con tal 
configuración. 


El Interface 1 


El aparato adicional más versátil es sIn duda el Interface 1 
de Sinclair Research, Por un precio muy económico ofrece la 
posibilidad de acceso a memorias de gran capacidad: los 
Microdrives, así como una conexión RS 232 con la cual es 
posible la conexión con otros ordenadores, impresoras y 
también Modems. Además permite la formación de una red local 
de hasta 64 Spectrums ( y Sinclair QLs). En ello se conserva 
la posibilidad de conexión a un magnetófono y la impresora 
ZXo 


El. Interface 1 dispone de una ROM adicional de 8 KByte, el 
cual se suma a los 16 KByte ROM del Spectrum. Esta ROM 
adicional amplía el juego de comandos del Spectrum: 


CAT 
CLOSE 
ERASE 
FORMAT 
MOVE 
OPEN 


así como amplía las poslbilidades de los siguientes 
comandos: 


CLS 
CLEAR 
INPUT 
INKEYS$ 
PRINT 
LPRINT 
LIST 
LLIST 
SAVE 
LOAD 
MERGE 
VERIFY 
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El. significado de estos comandos se expone en el apéndice. 
Aquí sólo vamos a tratar algunas peculiaridades. 


El. comando 'CAT! se utiliza para obtener un Índice de una 
casette de Microdrive. Por ejemplo el comando  'CAT 1' 
suministra el nombre de la casette en el Microdrive 1 y los 
nombres de los primeros 50 ficheros no protegidos contenidos 
en la misma. Un flchero protegido es aquel cuyo nombre 
comienza con CHRÍ$ 0. Estos ficheros son ingnorados por 
'CAT'. Además se Indica la memoria utilizable en KBytes. 


Esta lista es visualizada en la pantalla con la forma 
anterior de comando. Si se quiere imprimir esta lista , hay 
que abrir la corriente correspondiente e  ¡ntroducir la 
fórmula: 


CAT An51 


"n" es el número de la corriente correspondlente. 

El. comando FORMAT se utiliza para fijar la densidad de 
transmisión a través de la conexión RS 232. Se pueden 
introducir los valores 50,110,300,600,1200,2400,4800,9600 y 
19200. Si no se Introduce ningún valor, la densidad Baud 
será de 9600. Si se ¡introduce un valor no previsto, se 
aplicará siempre el próximo valor inferior 'permitido'. El 
mínimo es siempre 50. 

Con el Interface esta permitido ¡igualmente CLSf. A diferencia 
del comando CLS simple, no sólo se borra el fichero de 
visualización en pantalla sino que, además, se fija: 


INK O, Ó sea negro 
PAPER 7, Ó sea blanco 
BORDER igualmente 7 


INVERSE se pone en O 
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BRIGHT se pone a O 
OVER se pone a 0 
FLASH se pone a O 


El. comando CLEARÉ borra datos posibles, fijados a travef de 
corrientes. Todos las corrientes se conectan en 
cortocircuito y dos datos que se encuentren en cualquier 
memoria ¡intermedia se plerden, cosa que no ocurre con el 
comando CLOSE. 


Se pueden conectar y comandar hasta ocho Microdrives 
paralelas ai Interface 1. Con estos Microdrives se pueden 
escribir y leer sin fin, casettes especiales, y utllizarlas 
así como memoria. 


Cada una de estas casettes contiene una cinta de unos 5 m de 
longitud, que tarda unos 7 segundos en pasar totalmente. En 
ermino medio, el tiempo de acceso a datos es de 3,5 
segundos. Cada casette puede memorizar datos en 90 Kbyte 
aproximadamente. Es aconsejable efectuar varias veces el 
formateo, ya que la memor la disponible puede variar en tales 
intentos. 


Une particularidad del interface 1 es la red local LAN, la 
cual permite la conexión directa de hasta 64 Spectrums y/ó 
S 'air Qls. Esta conexión sé realiza con una cable simple 
de dos hilos. Los datos se intercambian con una velocidad de 
5 KByte por segundo. 


Con el comando FORMAT *"n",7 se le asigna a un Spectrum por 
ejemplo el aúmero de estación 7. Este número de estación 
debe estar comprendido entre 1 y 64. El mismo efecto se 
consigue con el comando POKE 23749,7. 


El intercambio de datos es bastante simpfe. Se útiiizan' los 
comandos LOAD, SAWE,, MERGE, etc, “sustituyendo únicamente la 
"m" de Microdrives por 'una "n", Las posibilidades de 
aplicación son múltiples. Como explica el manual- del 
Interface 1, algunos propletarios del Spectrum pueden 
compartir un aparato perltférico caro 0, por ejemplo, una 
impresora. 


Se. pueden elaborar juegos totalmente nuévos, si se conectan 
Spectrum entra. sf. También se pueden redactar programas en 
los' cuales cada ordenador se encarga de trabajar con una 
parte del programa. Los resultados de cálculos pueden ser 
intercambiados y representados en las dos o en varias 
pantallas (o más según el número de ordenadores), Tanto por 
parte de la Hardware como de la Software se abre un campo de 
actividades amplio. 
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Impresoras en serie 


Los propietarios del Interface 1 y con ello de |a conexlón 
RS 232, tienen la posibilidad de utilizar, aparte de 
impresoras puras, máquinas de escribir con una conexión 
adecuada como Impresoras. Entre algunos modelos destacaremos 
el EP44 de la empresa Brother. El motivo es la versatilidad 
de este aparato. 


Esta máquina de escribir lo hace sin cinta sobre papel 
térmico (el cual no es barato),o con cinta (lo cual tampoco 
es barato) sobre papel convenclonal. La impresión es muy 
buena gracias a una matriz de puntos de 18 x 24. La 
aplicación como Impresora en conexión con el Spectrum no 
puede ser más fácil. Se conecta el cable RS 232 en el 
enchufe e ¡introduce en forma de parámetros los siguientes 
valores para la transmisión de datos: 


BAUD RATE a voluntad, pero siempre de acuerdo 
con los valores del Spectrum 


B1T LENGTH 8 
PARITY N 

NEX LINE CR + LF 
CODE 7 BIT 
ER Y 


Entonces se coloca el conmutador en la posiclón 'TERMINAL' y 
se introduce el siguiente comando en el Spectrum: 
OPENA 3,"+": FORMAT "+"; baud rate 


98 


donde en lugar de 'baud rate' se encuentra el valor que se 
introdujo en la máquina EP 44. 


A partir de ahora los comandos LPRINT y LLIST actúan en la 
EP 44. Esto es porque LPRINT y LLIST no significan otra cosa 
que  PRINTA3 y  LIST*3. COPY no  funclona porque 
desgraciadamente, la EP 44 no +tlene cualidades gráficas. 


La máquina de escribir dispone de una serje de poslbilidades 
de memorización de texto y transmisión a distancia de datos. 
Incluso dispone de un editor de texto. Lo que es realmente 
interesante para propletarios de Spectrum sin teclado 
adicional, es la poslbilldad de utilizar la EP 44 como 
aparato de entrada para el Spectrum. 


Una rutina sencilla para lograr esto es la siguiente: 


10  OPENA3, "+": FORMAT "+";300 
20 BORDER O 

100  LET m$=/NKEYA3 
110  1F CODE m$>31 THEN PRINT m5; 
150 GO TO 100 


Todo lo que ahora se Introduzca en la EP 44 se visualiza en 
la pantalla. Esta rutina indica el método para realizar la 
entrada en sus programas a través de la máquina de escribir. 
Es un buen negocio utilizar la EP 44 como Impresora aunque 
de forma limitada como teclado, lo cual significa para 
muchos propietarios del Spectrum un ahorro de 11.000 Ptas. 


SIT se quisiera escribir desde el Spectrum directamente en la 
máquina de escribir, y quizás mantener un sistema de diálogo 
entre ambos, sólo hay que Insertar las siguientes dos líneas 


en la rutina anterior: 


120 LET n$=/NKEY$ 
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130 IF CODE n$>31 THEN PRINTA3;n$ 


Naturalmente, de esta manera, es factible visualizar en la 
pantalla el texto que estuviera memorizado en la EP 44. Las 
posibilidades aquí son numerosas. 


Lápiz óptico 


Un aparato adiclonal muy atractlvo para el Spectrum (como 
para cualquier ordenador) es un lápiz óptico (conocido 
generalmente por Ligthpen). Con este lápiz se pueden hacer 
cosas que para un ¡nexperto parecen de magia. Se pueden 
'dibujar' líneas, cfrculos y otras figuras en la pantalla. 
La utilización del lápiz al eleglr en un menú es muy 
espectacular. 


Pero ciertamente, no se pueden esperar verdaderos milagros 
del lápiz. El que, por ejemplo quiera dibujar la catedral de 
Aquisgrán en la pantalla, y quiera conseguir líneas más o 
menos rectas, tiene que practicar bastante tiempo. 


¿Cómo funciona un lápiz óptico? En principio es un receptor 
de luz, que la transforma en una señal eléctrica intellgible 
para el ordenador. La ¡Imagen de televisión se escribe 25 
veces por segundo con un rayo de electrones, para lo cual 
este rayo pasa por 625 líneas horizontales. Si se coloca el 
lápiz sobre la pantalla, éste 've* luz siempre que el rayo 
de electrones pase por su situación. En este momento es 
cuando el lápiz manda una señal al ordenador +. 


Este sólo tiene que calcular cuánto tiempo ha transcurrido 
desde que el rayo de electrones comenzó con la imagen, o 
sea, cuándo se encontraba en la esquina ¡izquierda superior. 
Con esta diferencia de tiempo, el ordenador sabe exactamente 
la poslción en que se encontraba el lápiz óptico. 


Aunque es casi imposible realizar dibujos complicados a mano 
alzada, se puede conseguir mucho con software adecuada. El 
lápiz óptico es también un aparato de introducción agradable 
para ¡[nexpertos en ordenadores, ya que sólo tienen que 
señalar los puntos que quiere reallzar. 
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Si con el lápiz sólo se quiere efectuar la elección en un 
menú, esto es bastante fácil. Pero hay que tener cuidado de 
que el lápiz no reciba luz antes de llegar a la pantalla, o 
mientras el usuario se mueve sobre la pantalla para llegar 
al punto deseado. 


Un método sencilio para eliminar tales 'errores', consiste 
en efectuar dos confirmaciones y dejar entre ambas un corto 
lapso de tiempo. Si ambas confirmaciones tienen el mismo 
resultado, significa que el láplz ha sido mantenido quieto 
en una misma posición para seleccionar. 


En un programa esto puede escribirse como sigue: 


100 LET Ifneal=USR 63109 ( o donde haya sido colocada 
la rutina por el fabricante) 

110 PAUSE 10 

120 LET línea 2=USR 63109 

130 IF Ifneal=IÍnea2 THEN GO TO ...... 

140 GO TO 100 


La pausa en la línea 110 puede ser prolongada a voluntad 
hasta que se consiga un resultado óptimo, 
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Procesado de texto 


El programa de procesado de texto TASWORD || para mel 
Spectrum, es casi con seguridad el más divulgado. Esto tlene 
su motivo, ya que el programa es sencillamente muy bueno. 
Aparte de ello es muy agradable para el usuario trabajar con 
él. Vamos a dar algunas observaciones sobre el programa 
mismo. 


El programa se suministra con una descripción muy detallada. 
ero ésta no se utiliza mucho tiempo, ya que el manejo es 
muy fácil. Además es posible, a través de dos 'páginas de 
ayuda', visualizar las caracterÍsticas más Importantes en la 
pantalla, incluso durante el trabajo con el programa. 


El. programa ofrece todas las posibllidades que se puedan 
esperar de un procesado de texto. El cursor se puede dirigir 
hacia las cuatro direcciones. En todo momento es poslIble 
corregir, Insertar o borrar en cualquier punto. El programa 
visuallza en el caso normal con 64 caracteres por línea. A 
quien este tipo de letra le parezca muy pequeña, puede 
editar el texto con la escritura normal del Spectrum. 


El. texto es formateado automáticamente al ser introducido. 
Esto significa que en cada l|Inea se ¡ntroducen tantas 
separaciones como sean necesarias para conseguir un borde 
uniforme en el lado derecho. Incluso después de borrar o 
insertar texto se puede conseguir en todo momento este 
formateado. 


Se pueden centrar palabras y correrlas hacla la ¡izquierda o 
derecha. Es posible buscar palabras en el texto para ser 
corregidas o sustituídas, asÍ como es posible mover y coplar 
bloques enteros de texto. Tamblén es posible 'mezclar' 
(MERGE) texto memorizado con otro documento. 
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Lo. agradable para el usuario consiste en que el programa 
puede ser copiado para el propio uso. Incluso es más: Se ha 
previsto una posición en el menú que permite realizar esto 
automáticamente. Como consecuencia, es posible adaptar el 
programa a la propia ¡impresora según las indicaciones 
pertinentes, y esta versión adaptada es la que se puede 
memorizar y aplicar. 


Otra ventaja consiste en que la parte de mando del programa 
esta escrita en BASIC, y es muy fácil transcribirio para su 
utilización con Interface 1 y Microdrives. ¡Quién no se 
enfada cuando tiene un programa fantástico de ajedrez y 
quiere traspasarlo después de adquirir Microdrives sin 
conseguirlo, y debe esperar, en consecuencia, muchos minutos 
para cargarlo! 


Si se transcribe TASWORD 1i a Microdrives, hay que ser 
ahorrativo con la memoria, ya que para la parte en 3ASIC 
sólo: se dispone de las direcciones hasta 31999. Por ello es 
aconsejable efectuar medidas de ahorro de memoria. A 
continucación se expone un ejemplo de cómo funciona el 
programa utilizando dos Microdrives y casette para la 
memorización, así como una impresora conectada a través de 
la conexión R5 232. También se han cambiado los colores de 
la pantalla, lo cual va 4 gusto del consumidor. 
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5 BORDER 7: PAPER 7: INK O: LET q$="peb" * 
10 CLS : LET a=USR 64330: GO TO 20 : ES 
15 BRIGHT 1: INK 0: PAPER 7: BORDER 7: POKE 23609,2: CLEAR 31999: LET q$="pcb" 
: GO SUB 4000: LOAD ="m";1;"taswordmc"CODE : CLS : LET a=USR 59081: GO TO 10 
20 BORDER NOT PI: PAPER NOT PL:, INK VAL "6": CLS : LET a=64xINT (a/64+0.99): 1 
F a=NOT PI THEN GO TO 3000 
25 LET a$=" text file" 
26 GO SUB 4000: LET v=VAL '"31": PRINT AT VAL "4",NOT PI; "print";a$;TAB v;"p" 
28 PRINT *"save”;a$;TAB v;'s” 
30 PRINT '"load";a$;TAB v;"j" 
35 PRINT '"merge";a$S;TAB v;"m" 
40 PRINT '"return to";a$;TAB v;"y" 
45 PRINT '"define graphics/printer";TAB v;"g" 
50 PRINT '"save tasword";TAB v;”"t"” 
55 PRINT '"into Basic";TAB v;"b" 
70 PRINT AT 20,VAL "7";"press key” 
80 LET a$=INKEYS: IF af="" THEN GO TO 80 
90 LET ¡=0: LET b=CODE a$: IF b:<97 THEN LET b=b+32 
110 IF b=115 THEN LET ¡i=VAL "6" 
120 IF b=106 THEN LET ¡=VAL "8" 
125 IF b=116 THEN LET i-16 
130 IF b=112 THEN LET i¡=VAL "4" 
140 IF b=121 THEN LET ¡=12 
150 IF b=109 THEN LET ¡=10 
160 IF b=103 THEN LET ¡=14 
170 IF b=98 THEN LET ¡=18 
180 1F ¡»VAL “O” THEN PRINT AT 1,31; FLASH VAL "1”;CHR$ b;: GO TO 500 
190 GO TO BO 
200 CLS : GO SUB 4000: PRINT AT VAL "4",VAL "8";"PRINT OPTIONS”: PRINT “ just 


press ENTER for default values given in brackets” 

210 LET ¡i=VAL "8": LET j0=23: PRINT' AT ¡,NOT Pl;"Line spacirng? (1)”: GO SUB 600 
0: IF a$="" THEN LET a$="1" 

215 POKE 62235,VAL a$ . ' 

220 LET i=10: PRINT AT ¡i,NOT PI;"Start at line? (1)”: GO SUB '6000: 1F a$="" THE 
N  LET a$="1" 

230 LET c=64x(INT VAL a$-1): LET bac+FN p(62216>: LET x=60045: GO SUB 950 

240 LET ¡=12: PRINT AT ¡,NOT Pl;"Finish at line? (last)": GO SUB 6000: IF a$="" 
THEN LET b=a-Cc: GO TO 250 

245 LET b=64xINT VAL a$-c 

250 RANDOMIZE USR 59806: RANDOMIZE USR (FN p(62472)) 

260 CLS : PRINT AT 20,NOT PI;”Press the q key to quit printing” 

265 FORMAT "t";300: OPEN 3;"t” 
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270 LET x=60049: GO SUB 950 

275 LET c=PEEK 62470: IF c<>0 THEN LPRINT CHR$ c 

280 RANDOMIZE USR 60038 

285 LET c=PEEK 62471: 1F C<>0 THEN LPRINT CHR$ c 

290 RANDOMIZE USR 59806: CLOSE 3: GO TO 5 

300 CLS : GO SUB 4000: PRINT "Printer control graphics chars: " 

305 LET b=VAL "4": FOR ¡=NOT PI TO 15: LET b=ABS (b-4): PRINT AT 1+4,b;1+128;CH 
R$ (1+128) 

307 FOR j=NOT PI TO VAL "3": LET c=PEEK (60860+1x4+j): LET a$=STR$ c: IF c=255 
THEN LET a$-="" 

308 PRINT AT i+4,10+4x*j;a$: NEXT J]: NEXT 1 

320 INPUT "Type graphics character code 128-143 (ENTER if finished)";a$ 

325 IF a$="" THEN GO TO 400 

340 LET b=VAL a$: IF b«128 OR b>143 THEN GO TO 320 

350 PRINT AT 21,VAL "3"; FLASH VAL "1";b; FLASH NOT PI;" ";CHR$ b 

355 FOR j=NOT PI TO VAL "3": POKE (60348+bx4+j),255: NEXT j 

360 FOR j=NOT PI TO VAL "3": INPUT "Code? (ENTER if finished)";a$: IF a$="" THE 


N GO TO 300 


370 
400 


POKE (60348+bx4+j),VAL a$: PRINT AT 21,10+4xj;VAL a$: NEXT j: GO TO 300 
CLS : GO SUB 4000: PRINT AT VAL "3",NOT PI;"Reset interface/printer codes?" 


LET ¡=VAL "5": GO SUB 920: CLS : IF ¡i=NOT PI THEN GO TO 25 


401 
403 
GO 
404 
405 
406 
000: 
410 
50 
420 
430 
50 
490 
500 


21,0; 


510 
520 
530 
600 
610 
620 


GO SUB 4000: PRINT AT 3,0;"just ENTER to keep values given: "” 

LET j0=27: LET ¡i-=8: LET j-=0: LET a$="Interface control codel=": LET x=60924 
SUB 850 

LET i=9: LET j=-=18: LET a$="code2=": LET x=62470: GO SUB 850 

LET i=10: LET j=18: LET a$="code3=": LET x=62471: GO SUB 850 

LET i=11: PRINT AT 1,18;"code4=";FN p(62472): LET ¡=12: LET jO=24: GO SUB 6 
LET j0=27: 1F a$<>"" THEN LET b=VAL a$: LET x=62472: GO SUB 950 

LET i=14: LET j=0: LET a$="Printer carriage return=": LET x=60925: GO SUB 8 


LET i=16: LET j=0: LET a$="Printer linefeed=": LET x=60926: GO SUB 850 
LET i=18: LET j=0: LET a$="Left margin on printing=": LET x=60927: GO SUB 8 


GO TO 20 
PRINT AT 20,0;" press the "; FLASH 1;"ENTER"; FLASH 0;" key to proceed”;AT 
"press "; FLASH 1;"c"; FLASH 0;" to change the choice " 


LET a$=INKEYS: IF a$="c" THEN GO TO 20 
IF CODE a$=13 THEN GO TO 600 

GO TO 510 

IF b=116 THEN GO TO 700 

IF b=121 THEN CLS : GO TO 5 

IF b=115 THEN CLS : GO TO 1000 
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630 IF b=109 THEN GO TO 2000 
640 IF b=106 THEN LET a=USR 59081: LET a=0: GO TO 2000 
650 IF b=112 THEN GO TO 200 
660 IF b=103 THEN GO TO 300 
699 CLS : STOP 
700 CLS : LET 1i=8: LET a$="tasword": SAVE x"m";1;a$ LINE 15 
710 SAVE x"m";1;a$+"mc"CODE 54784,10751 
770 PRINT AT 19,0; 
780 VERIFY x"m";1;a$: PRINT AT 21,0;"tasword: basic O.K.;";AT 19,0; 
790 VERIFY x"m";1;a$+"mc"CODE 54784,10751: PRINT AT 21,20;" m/code O.K.": GO TO 
25 
850 PRINT AT 1,j;a$;PEEK x: GO SUB 6800: IF a$<>"" THEN POKE x,VAL a$ 
860 RETURN 
920 PRINT AT i,4;"press y for yes";AT i+2,11;"n for no” 
930 IF INKEY$="n" OR INKEY$="N" THEN LET ¡i=0: RETURN 
940 IF INKEY$="y" OR INKEY$="Y" THEN LET ¡=1: RETURN 
945 GO TO 930 
950 POKE x,b-256x* INT (b/256): POKE (x+1),INT (b/256): RETURN 
1000 LET b=FN p(62216): CLS 
1005 PRINT AT VAL "8",NOT PI;"Name of text file for saving?": LET i-10: LET jO=N 
OT PI: GO SUB 6000 
1010 IF a$="" OR LEN a$>10 THEN GO TO 1005 
1020 INPUT "MD (1 or 2) or c for Cassette"; LINE m$: IF m$«>"1" AND m$<>"2" AND 
m$<>"c" THEN GO TO 1020 
1022 1F m$="c" THEN, GO TO 1035 
1025 ERASE "m";VAL m$;a$ 
1030 LET ¡=12: SAVE x"m";VAL m$;a$CODE b,a: LET ¡=14: VERIFY x"m";VAL m$;a$CODE 
b,a: GO TO 1040 
1035 LET i=12: SAVE a$CODE b,a: LET i=14: PRINT "rewind to verify and press key” 
PAUSE O: VERIFY a$CODE b,a 
1040 CLS : PRINT AT 8,NOT PI;"text file ";a$;" saved:";AT 10,NOT Pl;a;" bytes,", 
a/PEEK 62237;" lines" 
1100 PRINT AT 21,6;"text file verified": PAUSE 150: GO TO 25 
2000 CLS : BORDER O: PRINT AT 8,0;"type the name of the text file";AT 10,0;"and 
press ENTER" 
2020 LET j0O=0: LET i=16: GO SUB 6000 
2025 INPUT "MD (1 or 2) or c for cassette "; LINE m$: 1F m$<>"1" AND m$<>"2" AND 
m$<>"c" THEN GO TO 2025 
2030 LET b=FN p(62216): IF m$<>"c" THEN LOAD x"m";VAL m$;a$CODE (a+b),((FN p(62 
221)+22)x64-a): GO TO 5 
2040 LET b=FN p(62216): 1F m$="c" THEN LOAD a$CODE (a+b),((FN p(62221)+22)x*64-a 
): GO TO 5 
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3000 FOR 1=23296 TO 23361: POKE 1,32: NEXT 1 

3005 POKE 23362,NOT P1 

3007 PRINT AT 3,4;"to use old word just ENTER"'AT 5,(LEN .q$:27)x(26-LEN q$)/2;"0 

w= '"3q$;"'" > 

3010 PRINT AT 8,0;* or type a new word to be replaced / found” 

3012 LET jO=NOT Pl: LET i=10: GO SUB 6000: IF a$="" THEN LET a$=q$ 

3015 LET q$-a$ 

3020 LET j=NOT PI: FOR ¡=VAL "1" TO LEN a$: POKE 23297+i,CODE a$(i): IF a$(i)=" 
" THEN LET j=j+1 ' 

3021 NEXT 4 

3022 IF ji>NOT PI THEN CLS : PRINT AT 12,0;"just a word - no spaces allowed": 6 

O TO 3000 

3025 POKE 23297,LEN a$ 

3030 PRINT AT 12,NOT PI;"with (just ENTER for find only)": LET ¡=14: GO SUB 6000 

3040 IF a$="" THEN POKE 23362,1: GO TO 3060 

3050 FOR i=VAL "1" TO LEN a$: POKE 23329+i,CODE a$(i): NEXT i 

3060 LET a=USR 64955: LET a=USR 64333: GO TO 20 

4000 PRINT AT NOT PI,VAL "9";"Tasword Two"; AT VAL "1",VAL "4";"? Tasman Software 
1983"; AT VAL "2", VAL "6";"MICRODRIVE VERSION": RETURN 

6000 LET u$=" ": LET hl=NOT Pl: LET a$="": PRINT AT 1,j0; FLASH 1," ” 

6010 LET j-=j0: .1F INKEYS<>"" THEN GO TO 6010 y 

6020 PRINT FLASH VAL "1";AT 1,j;u$: LET b$=INKEYS 

6030 IF b$-="" THEN GO TO 6020 

6040 IF CODE b$=13 THEN PRINT AT 1,3];" ": RETURN 

6045 1F CODE bY-=14 AND h1=NOT PI THEN GO TO 6300 

6047 IF hl=VAL "1" THEN GO TO 6400 

6050 IF CODE b$:<>12 THEN GO TO 6170 

6060 IF j=j0 THEN “GO TO 6200 

6070" LET j=j-1:: PRINT AT 1,j; FLASH 1;u$; FLASH 0;" ": LET a$=a$( TO j-Jj0): GO T 

O 6200 : 

6170 IF CODE b$<32 OR CODE b$>127 THEN GO TO 6200 

6180 BEEP -.005,5: PRINT AT 1,j;b$: LET j=j+1: LET a$=a$+b$ 

6190 IF j=32 THEN PRINT AT ¡+1,NOT PI;" ": RETURN 

6200 IF INKEYS<>"" THEN GO TO 6200 

6210 GO TO 6020 

6300 LET hl=VAL "1": LET u$="E": BEEP .005,5: GO TO 6200 


6400 IF CODE bD$=14 THEN LET hi=NOT PI: LET u$=" ": BEEP .005,5: GO TO 6200 
6405 LET h$="": GO SUB 6500+CODE b$ 

6410 IF h$="" THEN GO TO 6200 

6415 LET bD$=h$: LET h1=NOT PI: LET Ub" ": GO TO 6180 


6578 RETURN 
6579 LET h$="0": REFURN 
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6583 RETURN 

6584 LET h$="2": RETURN 
6585 LET h$="U": RETURN 
6588 RETURN 

6589 LET h$="A": RETURN 
6610 RETURN 

6611 LET h$="0": RETURN 
6615 RETURN 

6616 LET h$="8": RETURN 
6617 LET h$="ú": RETURN 
6620 RETURN 

6621 LET h$-"4": RETURN 
6800 RETURN 

7000 DEF FN p(x)=PEEK X+256xPEEK (x+1) 
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Compilador 


Los programas redactados en BASIC tienen el inconveniente de 
que amplias operaciones matemáticas se realizan de forma 
relativamente lenta. Es mucho más rápido si se ahorra a 
ordenador el trabajo de traducir del BASIC al lenguaje de 
máquina. Pero esto es un proceso bastante complejo y no muy 
sencillo. 


De todas formas, también aquí el ordenador puede prestarnos 
su ayuda si exl|ste un programa adecuado. Un programa de esta 
índole se denomina 'Compilador' y realiza exactamente lo que 
antes exponfamos: traduce del BASIC al lenguaje de máquina. 
El mismo Compilador está escrito, también en lenguaje de 
máquina. 


Primero, el Compilador es cargado en el Spectrum. Después se 
puede comenzar con la programación en BASIC o cargar un 
programa ya confeccionado, e Inmediatamente después a través 
de un comando, comenzar la traducción. 


Según el tipo de Compilador, el programa traducido se 
realiza de 5 a 50 veces más rápido que el redactado en 
BASIC. Generalmente se distingue entre el Compilador que 
sólo puede traducir números enteros y los que dominan 
números de coma flotante. Quizás Vd. se pregunte el sentido 
que tienen los primeros, si existen Compiladores que dominan 
toda la gama de números. 


La solución está en la rapidez. Justamente la representación 
de números en notación de coma flotante es muy laboriosa. 
Pero ¿por qué vamos a molestarnos , si esto no es necesario 
y podemos escribir programas diez veces más rápido? 
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Si por ejemplo queremos traducir programas de juegos , en 
los cuales lo que importa es la capacidad de reacción y la 
representación gráfica, es recomendable un Compilador 
'sencillo'. En este caso los puntos ganados se pueden editar 
en números enteros. 


Si por el contrario, queremos traducir un programa de 
negocios, se aplicará el Compllador más general. ¿Qué 
negociante quiere prescindir de los céntimos? 


Por regla general, los Complladores no dominan todos los 
comandos de los que dispone el Spectrum. Por ejemplo, el 
número de dimensión de un campo está casi siempre limitado a 
1. Aunque esto no representa ningún problema, pues con un 
poco de trabajo se puede representar cualquier campo 
multidimensional como campo unidimensional, memorizando las 
dimensiones en serie. El Spectrum realiza esto internamente. 


Igualmente, el Compilador no puede ejecutar comandos VAL y 
saltos calculados. Pero tamblén aquí se puede soluclonar el 
problema a través de CODE CHR$ y pinitos similares. 


Un aspecto agradable al utilizar el Compilador es la 
posibilidad de traducir varias subrutinas en serie, aunque 
cada subrutina comlence en una dirección diferente. Estas 
rutinas pueden ser activadas y utilizadas en cualquier 
programa a través de RAND USR.... 
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CAPITULO 8: 
REPRESENTAC ONES GRAFICAS 


Introducción 


El Spectrum dispone de muy buenas cualidades gráficas, que 
son aplicadas en muchos programas de juego. No obstante, en 
este capítulo no queremos dedicarnos a dibujar cuadros, sino 
a la representación gráfica de tablas. 


Tales programas de negoclos son aplicaciones muy extendidas 
en ordenadores personales, pero también nuestro Spectrum 
ofrece bastante, y sin gran esfuerzo. Este va a ser el 
primer programa que tendría aplicación en una empresa 
pequeña. 


Las representaciones de tablas de valores gráficos más 
agradables son los diagramas de columnas, de círculos o tipo 
pastel. Elaboremos, pues, un programa con el que 
representaremos datos en la pantalla. 


El. programa terminado debe estar capacitado para elegir la 


escala, memorizar los datos de varios dlagramas y efectuar 
modificaciones. 
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Desarollo del programa Busygraph 


El esqueleto del programa es en sT bastante sencillo. Son 
necesarias las sigulentes rutinas: 


y . 
¡A iniciar los diagramas, o sea reservar capacidad 
de memoria ; 


De Un menú que' utilizaremos paralelamente 
como Índice de contenido para los diferentes 
diagramas. E : 
3. Comando de la representación en la pantalla 
4. Realización de los diagramas con columnas 
5. Realización de los diagramas con círculos 


6. introducciones y modificaciones 


7. Memorización del programa y datos 


, 


Comenzemos con la reserva de capacidad de memorla. Nos 
limitaremos a 15 diagramas, que pueden ser activados 
paralelamente en el programa. Esto debería ser suficiente. 
Quien quiera memorizar más diagramas, sólo tiene que 
memorizar el programa varias veces. O sea: 


20 DIM +$(15,20) 


quiere decir, cada título puede tener una longitud de 20 
caracteres. Como los títulos aún no están definidos, sigue: 


30 FOR ¡=1 TO 15:LET +$(1) = "llbre": NEXT ¡ 


El número de valores que se pueden introducir en un diagrama 
será 24. Esta ES la denominamos dimax. 
TL 


Además definimos la magnitud dim, la cual indica la cantidad 
real de valores en un diagrama, y se memoriza para cada 
diagrama en la magnitud a(dim). Los valores estarán en 
x(dim,15). Además necesltamos un vector adiclonal, en el 
cual existan los valores a una escala aceptable. 


40 LET dimax=24: LET dim=dimax:DIM x(dim,15) 
50 DIM y(dim):DIM a(dim) 


Esta parte del programa sólo puede transcurrir una vez, ya 
que de lo contrario se borrarían todos los datos. 
Introduzcamos : 


10 BORDER O:PAPER O: INK 6: LET m=9000: GO TO m 


Esto tiene la ventaja de que en caso de ruptura, el programa 
puede ser reiniciado con GO TO 1, sin perder datos. 


Ahora veamos el menú que Inlciaremos en la línea 9000. 


9000 CLS:PRINT TAB 2; INK 3; "BUSY GR APH Menu" 

9010 FOR ¡=1 TO 15: PRINT 1; TAB 5; +4(¡): NEXT ¡ 

9020 PRINT AT 20,0; INK 6; "E.sc.oooo.Final" 

9030 INPUT INK 4;''¡Por favor introducir un número!'' 
3 LINE m$ 


Comprobaremos una cuestión: 
9110  IFmé="e" THEN GO TO 9900 
9120 FOR ¡=1 TO 15: IF m$=STR$ ¡ THEN GO TO 5000 


9130 NEXT ¡ 


Si este bucle se recorre hasta el final, se ha realizado una 
falsa introducción y saltamos hacia 9100: 


9140 GO TO 9100 
En la línea 9900 se pregunta sl los datos han de ser 


asegurados, y  memorizados en casette o Microdrive como se 
expuso en el capitulo 4. 
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En la línea 5000 se ellge la forma de representación, o sea, 
diagrama de columnas o de círculos, y después de dibujar los 
se esperan los siguientes comandos. Al elegir la forma de 
representación, podemos elegir aquella que fue visualizada 
la última vez. Para ello utilizamos, por motivos de 
sencillez, una magnitud x0, que es la coordenada de origen 
del diagrama. En el diagrama de columnas x0 = 40, en el 
diagrama de círculos 90. 


5000 LET dim=a(VAL m$) 

5010  |F x0<50 THEN GO TO 1000 
5020 IF x0>50 THEN GO TO 3000 
5100 PAUSE 0: LET n$=/NKEY$ 
5200 1F n$= "m'" THEN GO TO m 
5300 GO TO 5100 


Por cuestiones de seguridad deberTamos escribir: 
60 LET x0 = 40: LET y0=20 


Para que estas magnitudes estén definidas en el primer 
inicio. 


En la línea 1000 se elabora el diagrama de barras, a partir 
de la línea 3000 el de tarta. En ambos casos queremos 
introducir una línea de comando, para recordar las opciones 
abiertas a este nivel. Como necesitamos esta línea dos 
veces, la escribimos en una subrutina en la línea 100: 


100 PRINT INK 4: ''"M Columnas Círculos Next Last 
Modificar";VAL m$ 
110 RETURN 


La M significa naturalmente menú. Next y Last deben dar la 
opción de ver el primer o último diagrama, sin tener que 
pasar por el menú e introducir el número correspondiente. La 
D juntamente con VALm$f muestra en la segunda línea el número 
del diagrama actual 
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Para obtener esta línea de comando escribimos: 
1000 CLS: GO SUB 100 : 

1010 PRINT AT 2,3; INK 3; T+S(VAL m$) 

Ahora hay que dibujar 'el diagrama. Primero los margenes: 


1100 LET x0=40: LET y0=20. 
1110 FOR 1=0 TO 1 

"1120 PLOT x0+1,yO+1 
1130 DRAW 200,0: DRAW 0,120 
1140 DRAW_ -200,0: DRAW 0,-120 
1150 NEXT 1 


y una rotulación. de la coordenada x: 


1160 FOR ¡=1NJY (1+dim/6) TO dim STEP INT (1+dIm/6) 
1170: PRINT AT 20; (x0-8)/8+1/*(192/dim)51: NEXT 1 


Los valores deben estar en las primeras posiciones de la 
matriz x(dimax,VALm$). Los valores ocupados se memorizaron 
en a(VAL m5) y en la línea 5010 se traspasan a la magnitud 
dim. "Ahora tenemos que encontrar el mayor de estos valores 
para poder dibujar a una escala adecuada. 


1180 LET max=0 
1190 FOR i=1 TO dim: IF x(i,VAL m3)>max THEN LET max= 
x(1, VAL m$) h 

1200 NEXT ¡ 

1210 LET top=max 
En caso de- que sea max=0, no se ha introducido aún ningún 
valor en este dlagrama, y se debería saltar rápidamente a la 
rutina para modificar o ¡introducir datos. Esta deberá 
comenzar en la línea 4000 
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1220 |F max=0 THEN PRINT AT 20,0,,: 60 TO 4000 


Pero si ya existen datos, tenemos que normalizar estos de 


manera razonable: 


1230 LET max=100/max 
1240 FOR ¡=1 TO dim: LEF y(1)=max*x(¡,VAL m$): NEXT ¡ 


Aquí es cuando se necesita el vector auxillar y. Para 
conseguir un rotulado razonable de la coordenada y, haremos 
un pequeño truco que funciona bastante bien: 

1250 LET sc=1: IF top<30 THEN LET sc=10 

1260 FOR ¡=0 TO 4 

1270 PRINT AT 9*+1*3-y0/8,0; OVER 1; INT 

(sc*(top-1/4*to0p))/sc 

1280 NEXT 1 
Ahora sólo tenemos que trasladar las barras en su lugar 
correcto, y esta parte se da por terminada. 


1300 LET xa=x0+50/dim 

1310 FOR ¡=1 TO dim 

1320 FOR j=0 TO 125/dim STEP 2 

1330 PLOT xa+j,y0 

1340 DRAW 0,y(1) 

1350 NEXT j 

1360 PLOT xa,y(1)+y0 

1370 DRAN 125/dim,0 

1380 DRAW 0,-y(1) 

1390 LET xa=xa+200/dim 

1400 NEXT i 

1900 GO TO 5100 
Esto ya está correcto, sólo que aún ne podemos comprobarlo, 
ya que el programa siempre. vuelve a saltar a la línea 4000 
mientras no hayamos introducido datos. 
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Antes de que procedamos a la representaclón de los diagramas 
de círculos, arreglemos este punto. Primero necesitamos una 
nueva línea de comando: 


4000 PRINT AT 0,0; INK 5; "EING:"; 

4010 PRINT INK 3;M Título borrar valores OK " 

4020 PAUSE o: LET n$=INKEYS$: IF n$="o" THEN GO TO 5000 
4030 IF n$="+" THEN GO TO 4200 

4040 IF n$="w" THEN GO TO 4300 

4050 IF n$="m" THEN GO TO m 

4060 IF n$="1" THEN GO TO 4100 

4070 GO TO 4000 


Ya que no queremos precipitarnos al borrar datos, 
introducimos en la línea 4100 una cuestión de seguridad: 


4100 INPUT "¿borrar? S/N'';LINE n$ 

4110 |F n$<>"S" THEN GO TO 4000 

4120 FOR ¡=1 TO dimax: LET x(1,VAL m$) =0;3 NEXT 1 
4130 LET a(VAL m$)=1 

4140 LET +S$(VAL m$)= " libre " 

4150 GO TO 5000 


Ahora tenemos que ocuparnos de la ¡ntroducción o de la 
modificación del título, cantidad de valores y de los mismos 
valores. Comencemos con el título: 


4200 INPUT '" Introducción: *'* LINE n$<>"" "*THEN LET 
FS(VAL m$)=n$ 

4210 PRINT AT 2,0,,AT 2,3; INK 3; +S$(VAL m$) 

4220 GO TO 4000 


Después la cantidad de valores: 


4300 INPUT ''"Cantidad de valores? (ENTER=""; 

Ca(VAL m$))3*'") '*; LINE n$: IF on$= "" 

THEN GO TO 4340 
4310 FOR ¡=1 TO dimax: 1F n$=STR$ ¡ THEN GO TO 4330 
4315 NEXT ? 
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4320 GO TO 4000 

4330 LET a(VAL m$)=VALn$ 

4340 LETdim=a(VAL m$) 

4350 INPUT ''Alterar valores? S/N'"; LINE n$: 1F n$x<> 
"S" THEN GO TO 4000 

4360 FOR ¡=1 TO a(VAL m$) 

4370 INPUT "valores"; (1);"ENTER="; (x(1,VAL m$));5 
"E=final"; LINE n$: IF n$=" " THEN GO TO 4400 

4380 IF n$="e" THEN GO TO 5000 

4390 LET x(¡,VAL m$)=VAL n$ 

4400 NEXT 1 


Aquí habría que prever sl el valor ha sido introducldo 
correctamente. Pero esto lo dejamos a deseo del lector. 


Ahora vamos a elaborar los diagramas' de tarta. Si aún no han 
sido introducidos valores, no puede ser dibujado 
naturalmente ningún dlagrama. 


3000 LET sum=0 

3010 FOR ¡=1 TO dim 

3020 LET sum=sum+x(1, VAL m$) 

3030 NEXT 1 

3040 IF sum=0 THEN GO TO 1000 

3050 CLS: GO SUB 100 

3060 PRINT AT 2,3; INK 3; T+S(VAL m$) 


Dibujemos ahora un círculo: 


3100 LET x0=90: LET y0=72 
3110 CIRCLE x0,y0,y0 


Ahora normalizamos los valores en el vector auxiliar y(dim): 
3120 FOR ¡=1 TO dim: LET y(1)=x(i¡,VAL m$)/sum: NEXT ¡ 


Para dibujar los sectores de circunferencia, deberemos 
recordar la trigonometría de las clases de matemáticas: 


119 


3200 LET win=0 
3210 LET xp=22-y0/8: LET yp=x0/8 
3220 LET u=2*PI*y0 


Para posiclonar correctamente las denominaclones de los 
segmentos, introducimos el valor scal: 


3230 LET scal=.9 


Ahora vamos a hacer un bucle con todos los valores y dibujar 
cada vez el centro del círculo y una línea con un 
determinado ángulo respecto a la línea anterlor: 


3400 FOR ¡=1 TO dim 

3410 PLOT x0,y0 

3420 LET vin=win+y(1) 

3430 LET x1=y0*C0S(2*P1*win) 

3440 LET x2=scal*y0COS (2*PI*(win-y(1)/2)) 

3450 LET yI=y0*SIN (2*PI*win) 

3460 LET y2=scal*yO0SIN (2*PI*(win-y(1)/2)) 

3470 DRAW x1,y1 

3480 PRINT AT 21-y0/8-y2/8,x0/8-1+x2/8; INVERSE 1;1 
3490 NEXT ¡ 


Ya que al dibujar el diagrama circular aún nos queda espacio 
en la parte izquierda de la pantalla, visualizamos la 
repartición porcentual de los valores sobre la suma total de 
todos los valores, asf como el valor de la media aritmética: 
3500 PRINT AT 3,23; INK 5; "Valores(Z)" 
3510 FOR I=1 TO dim STEP 2: PRINT AT (1+6)/2,21;5 
INK. 5313 
3520 PRINT TAB 23; INT (1000*y(1)))/10; 
3530 I1F (1+1)<=dim THEN PRINT TAB 28; 
INT (1000*y(1+1))/10 
3540 NEXT 1 
3550 PRINT AT 17,20; "Suma"; AT 18,20; 
INT (100*sum)/100 
3560 PRINT AT 20,20; ''valor media arltmética'"; 
AT 21,20; INT(100*sum/dim))/100 
3900 GO TO 5100 
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Ya habrfamos terminado, sí no hubiésemos olvidado un pequeño 
detalle. 

Después de haber dibujado un diagrama, el programa salta a 
la línea 5100. Aquí hemos previsto el retorno al menú, pero 
no todavía para todas las opciones. Realicemos este punto 
rápidamente: 


5210 IF n$="b" THEN GO TO 1000 

5220 IF n$="k" THEN GO TO 3000 

5230 1F né$="n" AND VAL m$<15 THEN LET mé= 
STR$ (VAL m$+1) 


5240 1F n$="]'" AND VAL m$>1 THEN LET m$= 
STR$ (VAL m$-1) 
5250 IF n$="n" OR n$="1" THEN GO TO 5000 


5260 1F n$="a" THEN GO TO 4000 
5900 GO TO 5100 


Para Iniciar el programa la primera vez, o para más tarde 


borrar todos los valores, Introducimos GO TO 20. Para 
sucesivas veces introducimos GO TO 1]. 
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Trabajar con el programa 


Ahora vamos a tratar de conocer el programa un poco mejor (y 
mejorarlo).  Introduzcamos, después de asegurarlo, G0 TO 20. 
Si todo funciona, deberTa surgir en la pantalla: 


BUSYGRAPHAH: Menu 


libre 
Libre 
libre 
Libre 
libre 
libre 
libre 
libre 
Libre 
libre 
libre 
[| Ibre 
libre 
libre 
libre 


OD J-lODOV un — 


e «0 
== O 


CUE 


Esccrsfinal 


Por favor introducir un número! 


Tecleemos ahora 'l ENTER'. Primero surge la línea de comando 


M columnas círculo Next Last Modificar 


D1 
libre 
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y los márgenes laterales para el diagrama. Pero como todos 
los valores están a 0, no es posible dibujar ningún 
diagrama, y el programa sabe que ahora queremos componer un 
nuevo diagrama. Por ello ¡indica rápidamente la línea de 
comando nueva: 

Entradas: Menu Borrar Título Valores OK 

Si no queremos Introducir datos, volvemos a través de m al 
menú. 


Si por lo contrario introducimos 'T' , podemos introducir un 
título, por ejemplo Test. Esto sustituye rápidamente el 
“libre! que existía anterlormente. Ahora tecleamos 'W', y 
surge la pregunta por la cantidad de valores. Si ésta debe 
quedarse ¡¡gual, no sólo tenemos que introducir ENTER, sino 
un número entre 1 y 24. Introduzcamos un '10'. 


Ahora podemos indicar si queremos cambiar valores y 
contestamos con 'S'. Introduzcamos los valores 1, 2, J... 
hasta 10 y esperemos el resultado. Después de la última 
introducción, el diagrama es automáticamente dibujado. 


Ahora podemos observar estos valores en forma de dlagrama 
circular pulsando la letra 'K'.Con esta opción se indican 
además los repartos porcentuales de cada valor, así como la 
suma y el valor de la media aritmética. 


Si queremos modificar o añadir un valor, lo efectuaremos 
pulsando 'A'. Dejemos la cantidad de valores sin modificar, 
pero cambiemos el primer número por 20. A continuación 
tecleemos y el nuevo diagrama está terminado. 


Lo que molesta algo en el programa, es que no podemos 
visualizar todos los valores simultáneamente, y un valor 
falso sólo puede ser corregido cuando la introducción se ha 
terminado por medio de e, o se ha alcanzado el último valor. 
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Pero esto es fácilmente reparable. 
Interrumpamos el programa con BREAK e introduzcamos: 


200 FOR 1=5 TO 17: PRINT AT ¡,6;" " 
NEXT TI: RETURN 


Esto origina un campo de 13 líneas por 23 columnas. 
Ahora cambiamos la línea 3450: 


4350 INK 0: PAPER 7: GO SUB 200: PRINT AT 5,6; 
"TABLA DE VALORES" 


y entonces: 


4352 FOR 1=1 TO dim: IF 1<13 THEN PRINT AT 1+5,6;1;5 
TAB 9;x(1,VAL m$) 

4353 1F 1>12 THEN PRINT AT 1-7,1851;TAB 22;x(1,VAL m$) 

4354 NEXT 1 

4356 NEXT 6 


4380 |1F n$="e" THEN PAPER O: I[NK 6: GO TO 5000 
4382 1F n$="/" AND 1>1 THEN LET ¡=i-1: GO TO 4370 
4361 IF CODE n$>57 THEN GO TO 4370 


4392 —1F 1<13 THEN PRINT AT 1+5,9 PAPER 7;" Me 
AT 145,9; 1NK 0O;5x(1, VAL m$) 
4394 1F 1>12 THEN PRINT AT ¡--7,22;PAPER 7;" us 


AT 1-7,2231NK O;x(1,VAL m$) 
4396 PAPER O 


Por favor, asegure Vd. esta versión. SI después quiere 
realizar otra modificación o Introducción de valores, surge 
una tabla de valores que respresenta todo con bastante 
claridad. Sl la alteración se realiza sobre un diagrama 
circular (o de tarta), se asemeja a la técnica de ventana. 
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A través de L podemos volver al último valor introducido. Al 
observar los diagramas,'L' o 'N' originan el paso al último 
o siguiente diagrama respectivamente, sin tener que volver 


al menú. 


El. programa tiene mucho espacio para ampliaciones. Por 
ejemplo, Vd. puede introducir ha posibilidad de 
representación por medio de diagramas de líneas. Si lo 
necesita, puede representar también números negativos. Si es 
muy ambicioso, introduzca la posibilidad de representar dos 
diagramas a la vez, o sumar dos diagramas y memorizar el 
diagrama resultante. 


Al final de este capítulo veamos el listado completo del 
programa. 
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REM ERARERRARIAERERA LARA RN 
REM EXERLCARRRRARE RAEE 


REM 
REM FERRE-MORET 
REM 
REM EXRRARARIAE RARA REL 
REM AERARARANAN AAA AAA AREA 


BORDER Oz: PAPER O: INK ó6z LET m=9000: 60 TO m 

DIM t$(15,20) 

FOR i=1 TO 15: LET ts$(i)="libre"s NEXT i 

LET dimax=24: LET dim=dimax: DIM x(dim, 15) 

DIM y(dim): DIM a(dim) 

LET x0=40: LET y0=20 

60 TO 1 

PRINT — INK 435“M Barras Tarta Prox. Ant. Modi+t.";VAL 
RETURN 

FOR i=5 TO 17: PRINT AT i,65" ll 
is: RETURN 

CLS : 6D SUB 100 

PRINT AT 2,33 INK 33t$ (VAL m$) 

LET x0=40: LET y0=20 

FOR í=0 TO 1 

PLOT xO+i,yO+i 

DRAW 200,0: DRÁW 0,120 

DRAW —200,0: DRAW 0,-120 

NEXT i 

FOR i=INT (i+dim/6) TO dim STEP INT (1+dim/6) 

PRINT AT 20, (x0-9)/8+i1/8*x(192/dim)ziz NEXT i 

LET max=0 

FOR is=i TO dim: 1F x(i,VAL m$)>max THEN LET max=x(i, 


NEXT i 

LET top=max 

IF max=0 THEN PRINT AT 20,0,,:3 60 TO 4000 

LET max=100/max 

FOR i=1 TO dim: LET y(i)=maxXx (i,VAL m$): NEXT ¡í 
LET sc=13 IF top<30 THEN LET sc=10 

FOR i=0 TO 4 


PRINT AT 9+iX3-y0/B.0: OVER 23INT (scg(top-i/4ítop)), 
NEXT i 
LET xa=x0+50/dim 
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1310 FOR i=1 TO dim 

1320 FOR j=0 TO 125/dim STEP 2 

1330 PLOT xa+j,y0 

1340 DRAW 0,y(i) 

1350 NEXT j 

1360 PLOT xa.y(i)+y0 

1370 DRAW 125/dim,0 

1380 DRAW 0Q,-y(i) 

1390 LET xa=xa+200/dim 

1400 NEXT i 

1900 60 TO 5100 

3000 CLS : 60 SUB 100: REM diagrama de tarta 

30035 LET sum=0 

3010 FOR i=1 TP dim 

3020 LET sum=sS: mex (i,VAL m%) 

3030 NEXT i 

3040 IF sum=0 THEN G0 TO 1000 

3050 CLS : GO SUB 100 

3060 PRINT AT 2,35 INkK 33t$ (VAL m$) 

3100 LET x0=%0: LET y0=72 

3110 CIRCLE x0, yO, yO 

3120 FOR i=1 TO dim: LET y(i)=x(i,VAL m$)/sumz NEXT i 
3200 LET win=0 

3210 LET xp=22-y0/B: LET yp=x0/8 

3220 LET u=2xXPIXyO 

3230 LET scal=0.9 

3400 FOR 1=1 TO dim 

3410 PLOT x0,yO0 

3420 LET win=win+y(1) 

3430 LET x1=yOXCOS (2XP1Xxwin) 

3440 LET x2=scalky0ACOS (2XPIX (win-y(1)/2)) 

3450 LET y1=yOXSIN (2XP1Xwin) 

3460 LET y2=scal*yOX*SIN (2xXPIx (win—y(1)/2)) 

3470 DRAW x1.,y1 

3480 PRINT AT 21-y0/B-y2/8,x0/B-1+:2/83 INVERSE 151 
3490 NEXT i 

3500 PRINT AT 3,213 INK 5; "VALORES (Z)" 

3510 FOR i=1 TO dim STEP 2: PRINT AT (1+6)/2,213 INK 5515 
3520 PRINT TAB 23; INT (1000%y(i))/105 

3530 IF (i+1)<=dim THEN PRINT TAB 285 INT (1000Xy (1+1))/10 
3540 NEXT i 

3350 PRINT AT 17,19; "SUMA";AT 18,19;1NT_ (100Xsum) /100 
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3560 PRINT AT 20,19; "MEDIA"; AT 21,19; INT (100% (sum/dim))/100 


3900 6D TO 5100 

4000 PRINT AT 0,03 INK 55“ Intr:"; 

4010 PRINT  INK 43 "M Titulo Valores Borrar OK" 
4020 PAUSE 0: LET n$=INKEYS$: 1F n$="0" THEN 60 TO 5000 
4030 IF n$="t" THEN 6D TO 4200 

4040 IF n$="v" THEN GO TO 4300 

4050 IF n$="m" THEN 60 TO m 

4060 IF n$="b" THEN GO TO 4100 

4070 GD TO 4000 

4100 INPUT "BORRAR ? (s/n) ";3 LINE ns 

4110 IF n$<>"s"” THEN GO TO 4000 

4120 FOR i=1 TO dimax: LET x(i.VAL m$)=0: NEXT i 
4130 LET a(VAL m$)=1 

4140 LET ts(VAL m$)="libre" 

4150 GO TO 5000 


4200 INPUT "ENTRADA: "; LINE n$: IF n$<>"" THEN LET t$(VAL 


m$)=n$ , 
4210 PRINT AT 2,3,,3AT 2,33 INK 3;t$(VAL m$) 
4220 GO TO 4000 


4300 INPUT "Numero de valores ?  —(ENTER="¿(a(VAL m$)):3")"3 L 


INE n$: IF n$="" THEN GO TO 4340 

4310 FOR i=1 TO dimax: 1F n$=STR$ i THEN GO TO 4330 
4315 NEXT i 

4320 60 TO 4000 

4330 LET a(VAL m$)=VAL nm$ 

4340 LET dim=a(VAL m$) 

4350 INK 0: PAPER 7: GO SUB 200: PRINT AT 5,6; "TABLA DE 
RES" 

4352 FOR i=1 TO dim: 1F i<13 THEN PRINT AT i+5,6;i;TAB 
i,VAL ms) 

4353 IF i>12 THEN PRINT AT i-7,18;i;31AB 223x(i,VAL m$) 
4354 NEXT i 

4356 INK 6 

4360 FOR i=1 TO a(VAL m$) 

4370 INPUT "valor "3(1)5" ENTER="3 (x (i,VAL ms));" F=Fin 
INE n$: IF n$="" THEN GO TD 4400 

43B0 IF n$="+" THEN PAPER 0: INK 6: GO TO 5000 

4382 IF n$="b" AND i>1 THEN LET i=i-1: GO TO 4370 

4384 IF CODE n$>57 THEN GO TO 4370 

4390 LET x(i,VAL m$)=VAL ns 

4392 IF i<13 THEN PRINT AT 1+5,9; PAPER 7;" "sar 


1530 


VALO 


xl 


1+5, 


93 INK 05x(i,VAL m$) 
1F i>12 THEN  PRiNT AT 1-7,22; PAPER 7;" "¿AT i-7 


4393 
122; 

43794 
4395 
4396 
4400 
5000 
so010 
5020 
5100 
5200 
35210 
5220 
5230 
5240 
5250 
5260 
5300 
9000 
9010 
9020 
9100 
9110 
9120 
9130 
9140 
9990 


INK 03x(i,VAL m$) | 

REM 

REM 

PAPER O 

NEXT i 

LET dim=a(VAL m$) 

IF x0<50 THEN GO TO 1000 
IF x0>50 THEN 60 TO 3000 
PAUSE O: LET ns$=INKEYS$ 

IF n$="m" THEN GO TO m 
IF m$="b" THEN GO TO 1000 


1F THEN 60 TO 3000 

IF AND VAL m$<15 THEN  LET ms=STR3 (VAL m$+1) 
IF AND VAL m$>1 THEN  LET m$=STR$ (VAL m$-1) 
IF OR n$="a" THEN 60 TO 5000 

IF THEN 60 TO 4000 

GO TO 5100 

CLS : PRINT TAR 23 INK 33"BUSYGRPH Menu"??? 
FOR i=1 TO 15: PRINT "  "zi¿5TAB S;t$(i1): NEXT 1 
PRINT AT 20,2; 1NK 63"F.....Fin" 

INPUT Ink 4; Introduzca un numero! “5 LINE m$ 


1JF m$="+" THEN (GO TO 9590 

FOR í=1 TO 15: 1F ms=STRS$ 1 THEN 50 TO 5000 

NEXT 1 

50 TO 9100 

CLS : FRINT AT 9,7; "Asegurar datos ? (s/n)": PAUSE O: 


ET ms$=INKEYS: IF m$="s" THEN 60 TO 9996 


9995 
9996 
9997 
9998 


CLS : STOP 

REM CLS : ERASE "m";1;"Busygrph" 
REM SAVE X"m";z15"Busygraph" LINE_1 
REM VERIFY X“m";1;"Busygraph" 
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CAPITULO 9: 
EL TABLÓN DE ANUNCIOS: 
PUBLICIDAD CON EL SPECTRUM 


Introducción 


Lo más probable es que Vd. haya echado un vistazo al casette 
de demostración que acompañaba a su Spectrum. Contiene 
algunos programas escritos sobre todo en BASIC y que pueden 
ser listados fácilmente. Pero ahora no vamos a tratar sobre 
estos programas en BASIC, sino a dirigir nuestro interés a 
las grandes letras que surgen en la pantalla. 


En el cuarto capítulo vimos ya una pequeña rutina, con la 
que pueden representarse caracteres a doble tamaño. Si 
utilizamos este sistema para letras aún maí3 grandes, el 
programa será muy lento. 


Es más rápido el lenguaje de máquina, ya que asT evitamos al 
ordenador la labor de traducción del BASIC. Por ello, la 
rutina en el casette para la representación de caracteres 
grandes, está escrita en código máquina. La rutina es, como 
todos los programas en casette, de la empresa PSION.:Pero no 
hay nada. en contra de utilizar esta rutina, ya que está a 
nuestra disposición. 


Podemos usarla y, Junto con otros efectos, conseguir un 
programa agradable, con el cual se pueden representar 
comunicados en la pantalla. Esto por ejemplo puede emplearse 
para comunicar a la familia que no le esperen a Vd. para la 
cena. Quizás podria Vd. estrenar su último chiste en una 
fiesta ante sus invitados. Ciertamente se pueden hacer 
muchas tonterías con este programa. 
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Naturalmente, un propietario puede colocar un televisor en 
el escaparate, e informar a sus clientes sobre sus ofertas 
especiales. Si esto se hace con mucho movimiento y colorido, 
seguro que resultará efectivo. 


El. programa debería pues, permitir introducir y memorizar 
texto, y  representarlo en la pantalla a tamaño, colores y 
tiempo según voluntad. Denominemos al programa AWIlS. 


Un punto importante en el programa es la rutina de 
caracteres grandes. Tomemos un programa de la PSION, por 
ejemplo 'WALL', que es el primero en la cara B del casette. 
Tras Interrumpir el programa por medio de BREAK, vemos que 
después de un CLEAR 31999, el código 'c" ha sido cargado en 
las direcciones 32000 hasta 3339. 


Podemos memorizar este código en casette o en Microdrive., 
Esto debería reallzarse con el comando SAVE  "c" CODE 
32000,340. Igualmente, sl Vd. dispone de un Spectrum de 48 
K, debe encontrarse el código en estas direcciones y al 
activar esta rutina no se ha de armar un caos. En la 
mencionada rutina se encuentran saltos hacia direcciones 
absolutas. Si en estas direcciones no se encuentra el código 
correcto, pasan cosas desagradables. Por regla general, hay 
que desconectar al buen Spectrum, ya que no quiere volver al 
funcionamiento en BASIC. Esto, naturalmente, puede evitarse 
si se cambian las direcciones correpondientes. Entonces se 
puede correr la rutina hacia atrás, y disponer de más 
espacio para el programa BASIC. 


Nosotros vamos a dejar la versión tal como está y a componer 
el programa restante de la manera más económica, de forma 
que se pueda memorizar el máximo de texto. Esto tlene la 
ventaja de que los propietarios de 16 K también tendrán su 
diversión. La rutina funciona de la siguiente manera: El 
texto se ¡introduce en la cadena p$. Después se fija la 
magnitud yy, que indica el número de línea en la pantalla. 
Se determinan los valores para xs y ySe+ Estos son factores 
de escala para el tamaño de la escritura en las coordenadas 
x € Y. 


Escribamos el siguiente programa de pruebas: 


10 CLEAR 31999 

20 LOAD "c" CODE 32000,340 

30 INK O: BORDER 6: PAPER 6:CL.S 
40 LET p$="HOLA" 

50 LET yy=10 

60 LET xs=2:LET ys=4 

70 GO SUB 3500 

90 PAUSE 0:STOP 


Ahora sólo tenemos que llegar a la subrutina en la línea 
3500. Podemos tomarla del programa 'WALL': 


3500 LET xx=(256-8*xs*LEN p$)/2 
3510 LET 1=23306: POKE 1,xx: POKE 1+1,yy: POKE 1+2,xs 
3520 POKE 1+3,ys: POKE 1+4,8 


En la |Tnea 3500 se calcula el número de columna de manera 
que el texto es centrado exactamente en la línea. Después, 
las magnitudes xx,yy,xs e ys son escritas en las direcciones 
23306. Desde aquí pueden ser leídas y elaboradas por la 
rutina del código máquina. Las direcciones desde 23296 son 
la memoria ¡ntermedia para la ¡mpresora, y pueden ser 
utilizadas aquí sin ningún peligro. 


Por ello, también los códigos de los caracteres de la cadena 


p5$ (o sea el texto que queremos escribir) son introducidos 
mediante 'POKE' en esta memoria. 
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3530 LET ¡=1+4: LET w=LEN p$ 

3540 FOR n=1 TO w: POKE ¡+n, CODE p$(n): NEXT n 
3550 POKE [+w+1.255 

3560 LET w=USR 32000 

3970 RETURN 


La línea 3560 activa la rutina en código máquina. Sl todo 
está correctamente, en la pantalla debe surgir, después de 
RUN, un saludo en caracteres grandes. La PAUSE O se ha 
introducido para que, después del trabajo realizado, no 
surja ningún comunicado en la pantalla. 


Si hasta aquí todo va blen, Vd. debería experimentar un poco 
con los parámetros xs,ys, etc. Introduzca otros textos y 
fTjese qué es lo que pasa cuando el texto es demasiado ancho 
y no cabe en una línea. La rutina está muy bien elaborada. 
¡No puede llegarse a Crash alguno! 
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El desarrollo del programa 


Ahora podemos empezar a construir un programa completo 
basándonos en estos inclos. Dejamos la subrutina a partir de 
la línea 3500; sólo las primeras líneas han de borrarse. 
Comenzemos de forma habitual: 


10 LET big=3500: LET m=9000: GO TO m 


9000 ¡NK O: BORDER 6: PAPER 6: CLSI 

9010 LET pS="AWIS-MENU": LET yy=10: LET xs=2: LET ys=4 

9020 GO SUB big : 

9030 PRINT AT 9,3;'"1 = Preparación de nueva 
publicidad'' 

9040 PRINT tt 112 = Prueba y/o cambiar'' 

9050 PRINT 11" 3 = Dejar correr publ'Icidad" 

9060 PRINT 50 ds BBNA 

9070 PRINT AT 21,2; ''Por favor introducir opción 
deseada'' 

9100 PAUSE O: LET m$=INKEYS$ 

9110 IF m$= "1" THEN GO TO 1000 

9120 IF m$= "2" THEN GO TO 5000 

9130 IF m$= "3" THEN GO TO 2000 

9140 IF M$= "4" THEN GO TO 9900 

9150 GO TO 9100 


Ahora vamos a fljar las posibilidades que debe ofrecer el 
programa. Vamos a elaborarlo de tal manera que podamos 
producir determinados dibujos con la ¡ntroducción». Cada 
dibujo está compuesto por una' determinada cantidad de 
líneas, cada línea compuesta por 30 caracteres. Cada línea 
puede representarse al tamaño deseado. También debe ser 
libremente elegible el color de la escritura, el fondo y los 
márgenes laterales. Entre la visualización de línea y lTnea 
se ha de poder hacer una pausa de duración indefinida. Cada 
línea debe ser ¡ntermitente si asÍ se desea, y cuando una 
línea esté terminada, el margen deberá cambiar rápidamente 
de color, 
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Para llevar a cabo estas posibilidades fácilmente, y 
poderlas modificar en todo momento, vamos a asignar a cada 
línea de texto que esté memorizada en un campo af, otro 
campo qf$. Para cada línea de texto existlrán entonces 10 
magnitudes, que fijan el tipo de representación durante el 
transcurso del programa. Detallemos este campo q$, para 
tener un resumen claro: 


q$(1) - si con esta línea se ha de iniciar una 
nueva Imagen 0Ó 1 

q6(2) -  Memoriza en forma de código la longitud 
de la lfnea de texto 

q$(3) =  Memoriza en forma de código el número de 
ITnea 

q$(4) Sl Indica el tamaño de la escritura 

q$(5) - Si la línea ha de ser parpadeante 06 1 

q$(6) E Indica la longitud de la pausa, antes de 
surgir la próxima línea 

q$(7) AS Indica el color de los margenes laterales, 
durante la duración de esta línea 

q$(8) - Indica el color del fondo 

q$(9) - Indica el color de la escritura 

q$(10) - Si el margen lateral debe visualizar todos 


los colores 06 1 

Además de estas posIbilidades, queremos prever la 
posibilidad de poder introducir o borrar texto en co1lquier 
parte. También debe ser posible la Intervención durante el 
transcurso y la introducción de modiflcaciones. Cada una de 
estas opciones se dispone en una subrutina. Estas rutinas 
las denominamos, por cuestiones de facilidad, con la primera 
letra de la labor que hax1 de realizar. 
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Introduzcamos: 


80 LET nb=100: LET te=100: LET ze=120: LET gr=130: 
LET bl=140 


82 LET pa=150: LET fa=160: LET va=170 


90 RETURN 
y después 
5 GO SUB 80 


Con estas ayudas casi podemos programar las líneas, sin 
haber pensado aún en la estructura de las mismas» A partir 
de ahora vamos a Intentar ocupar la memoria en lo mínimo 
posible, para que puedan ser memorlzadas la máxima cantidad 
de líneas a la vez. Esto signlfica que en lugar del O, 
aparecerá frecuentemente un NOT Pl, o el valor 1 expresado a 
través de VAL "1", Por este mismo motivo no se vaa 
cuestionar en cada ¡¡ntroducción, si esta es legal o no. 
Quien quiera ¡introducir tales cuestiones, puede hacerlo ya 
que generalmente, el programa es fácilmente modificable a 
voluntad. 


Antes de comenzar, deberíamos introducir la |fTnea: 

70 LET 1$=" " 
15 representa una cadena con 30 espacios en blanco, y 
poslbllita la cuestión, si en un línea a$(¡) ya se ha 
Introducido texto. Ahora vamos a ver la parte del programa 
que manda la representación de las líneas: 


2000 CLS : IF a$(1)=15 THEN GO TO m 


Sl no se ha introducido texto, se vuelve directamente al 
menú. 
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2010 LET anf = VAL "1": LET end = d 
J se actualiza después según el número de líneas. 
2020 PRINT '' *' Todas las líneas? S/N '": PAUSE NOT 
Pl: LET z9=INKEY$: CLS 2030 IF z£<> "N" 


THEN GO TO 2100 


Esta pregunta permite visualizar determinadas líneas, desde 
anf hasta end. 


2040 INPUT ''Primera línea ="*; LINE z$: IF z$= '" "! 
THEN LET z$= "1" 
2050 LET anf = VAL z$: IF anf>d THEN GO TO 2040 
2060 INPUT '* última línea = 2 '" ¿LINE z$: 1F z$= 
$" " THEN LET z$=STR$ d 
2070 LET end= VAL z$: |F end>d THEN GO TO 2060 
2080 IF anf>end THEN GO TO 2000 
Aquí comlenza el bucle con todas las líneas: 
2100 FOR z= anf TO end 
que ha de finalizar en la línea 2500. 


2500 NEXT z 


Para poder Intervenir en el transcurso del programa, que 
aquí +lene un bucle indeterminado, introducimos: 


2110 1F INKEY$ = "m" THEN GO TO m 
De esta manera, pulsando la tecla m volvemos al menú. 


2070 LET end=VAL z$: IF end>d THEN GO TO. 2060 
2080 IF anf>end THEN GO TO 2000 


Ahora comienza en bucle con todas las líneas: 
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2100 FOR z=ant TO end 
que ha de finalizar en la línea 2500 
2500 NEXT z 


Para poder ¡ntervenir en el transcurso del programa, que 
aquí tlene un bucle indeterminado, introducimos: 


2110 IF INKEYS="1q" THEN GO TO m 
De esta manera, pulsando la tecla m volvemos al menú. 
“2120 1F afíz) = 1$ THEN GO TO 2100 


Cuando se ha llegado a la primera línea vacía, comienza de 
nuevo el juego. 


Por fín podemos empezar con la representación de cada línea. 
Primero vamos a fljar los colores: 


2130 BORDER VAL q$(7,z): PAPER VAL q$(8,z): INK VAL 
q$(9,z) 


Después se determina la línea, en la cual se visualiza 
texto: 


2200 LET yy=8*CODE q$(3,z) 
y la escritura 
2210 GO SUB 135 
Saltamos hacia la subrutina 'gr', ya que en la escritura se 
calculan dos parámetros: xz e ys. Ya que esto también se 


efectúa al ¡introducir una línea, podemos evitarnos la 
introducción de estas líneas de programa. 
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Ahora debemos traer el texto al campo p3, ya que nuestra 
rutina exlge esto. La longitud del texto esta en q5$(2,z), o 
sea: 


2220 LET pí=abí(z,1 TO CODE q$(2,z)) 
2230 IF q3(1,z2)="1" THEN CLS 


borrar pantalla, si se exige nueva Imagen y 
2240 FLASH VAL q$(5,z) 
o sea, cese del parpadeo. 
Ahora nos vamos a la subrutina 'big', para editar el texto 


2300 GO SUB big 
y evitamos un posible parpadeo de la pantalla: 
2310 FLASH NOT Pl 


Ahora preguntamos si el margen lateral ha de cambiar a todos 
los colores 


2320 1F q$í10,z)="1" THEN FOR k=1 TO 7: BORDER k: 
PAUSE 50: NEXT k 


Ahora se flja la duración de la pausa. Esta viene dada a 
través de q$(6,2). Si CODE q$ (6,z)=0, la línea se quedarfa 
visualizada hasta que fuese pulsada una tecla. Esto queremos 
evitarlo. o sea: 


2350 IF CODE q$(6,z)=0 THEN LET Q$(6,z)= CHR$ 1 
2400 PAUSE 50% CODE q$(6,z) 


Deberiamos Introducir dos posibilidades en este punto, que 
permiten que el programa sea más confortable: Primero 
deber Í amos poder interrumpir el programa, para poder 
observar úuna Imagen el tiempo deseado y, por otra parte, 
facilitar modificaciones. Esto se realiza fácilmente a 
través de los comandos: 
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2410 1F INKEY$="p" THEN PRINT AT NOT PI,NOT Pl; "PAUSE" 
NOT PI: PRINT AT NOT PI,NOT Pl;" ": GO TO 2410 


Si queremos saber el número de la |Ínea, podemos ver este si 
pulsamos la tecla 2, introduciendo: 


2420 IF INKEYS$="z" THEN PRINT AT NOT PI, NOT Pl; 
"lLinea";z:PAUSE NOT Pl: PRINT AT NOT Pl, 
NOT Pl; " ": GO TO 2410 
Ahora la posibilidad de camblar una línea: 


2430 IF INKEYS ="k" THEN GO TO 5200 


La línea '2500 NEXT z' ya la hemos introducido. Ahora 
introducimos: 


2600 GO TO 2100 
y el proceso sin fín esta asegurado. 
Vamos a ocuparnos de la entrada de textos, para que por fín 
se vea algo en la pantalla. Primero nos aseguraremos de si 
hay que borrar algunas líneas, para que no ocurra por 
descuido: 

1000 CLS : PRINT*** "¿Borrar todas las lineas? S/N" 

: PAUSE NOT PI:IF INKEYS ="S" THEN GO TO 1100 
1010 CLS : LET flag=1: GO TO 1200 


Si la bandera = 1, no se debe sobreescriblr línea alguna. 


1100 CLEAR : GO SUB 20 


140 


A partir de línea 20 se colocan los valores iniciales para 
todas las líneas. Ahora Iniciamos un bucle a través de todas 
las líneas posibles: 


1200 FOR z=VAL "1" TO d 
1210 IF flag=1 AND a$(z)<>1$ THEN GO TO 1800 
1800 NEXT z 


o sea, se busca la primera línea en blanco ( en la l|Tnea 
1800 esta escrito NEXT z). 


Ahora se efectúan todas las preguntas, para lo cual cada vez 
se activa una subrutina. Gran parte de estas rutinas se han 
previsto con nombre en la línea 80. 


1220 GO SUB nb 


Esta es la pregunta para ¡¡nIciar una nueva imagen o no. 
Ahora vamos a introducir el texto. Para ello escribiremos, 
en la parte ¡izqulerda de la pantalla, el número de |Tneas; 
de esta manera es más fácil la orientación. Esto se efectúa 
con una rutina a partir de la línea 200, que aún ha de ser 
escrita, pero que es muy sencilla: 


1230 GO SUB 200: GO SUB te 


Si se ¡introduce una línea en blanco, significa que la 
introducción se ha finalizado: 


1240 IF CODE q$(2,z)=0 THEN GO TO m 
1250 LET a$(z,1 TO LEN +$)=+$ 
1260 GO SUB ze: GO SUB gr 


Ahora escribimos esta línea. Para no ¡interrumpir el 
transcurso se efectúa a través de: 


1280 GO SUB 500 
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A partir de línea 500 se encuentra una rutina de escritura, 
que activa también la rutina big. Los parámetros más 
importantes se han introducido, y ahora se ha de preguntar 
si se han de cambiar algunas magnitudes. Para ello 
utilizamos una pequeña rutlna, que se llamará 'pregunta': 


1290 GO SUB pregunta 
Todo esto se finaliza con 


1800 NEXT z 
1900 GO TO m 


como ya se han mencionado. Aún faltan algunos detalles, pero 
los introduciremos más tarde. 


Ahora vamos a completar la inicialización, o sea a reservar 
la memoria, o borrar, y asignar valores inicales más o menos 
razonables a los parámetros. 


20 LET d=25 
30 DIM q$(10,d): DIM a$(d,30) 
40 FOR k=1 TO d: LET q$(4,k)="1": LET q5(6,k)= 


CHR$ 5:LET q$(7,k)="6":LET q$(8,k)="6":; 

LET q$(9,k)="0" 
50 LET q$(1,k)="0": LET q$(5,k)="0": LET q$(10,k)="0" 
60 LET big=3500: LET m=9000: LET flag=NOT Pl 
84 LET pregunta=300 


De esta forma se han previsto los colores -negro para la 
escritura y amarillo para el  fondo- y los márgenes 
laterales. Esto, como todas las demás magnitudes, se puede 
cambiar; sólo que hay que indicarlo. Además se ha previsto 
'ninguna nueva Imagen', "ningún parpadeo', pausa de 5 
segundos y ninguna variación de los márgenes laterales. 


Ahora tenemos el deber de elaborar las diferentes 
subrutinas, que permitan introducir todos los parámetros. 


Comencemos con la rutina 'pregunta': 


300 PRINT AT 21,NOT PI; INK NOT PI; PAPER VAL "7"; 
"TUHFZBGPNE Y Okay" 

310 PAUSE NOT Pl: LET n$=/NKEYS$ 

312 IF n$="u" OR n$= "h" OR n$= "f" THEN GO TO fa 


todos los colores se tratan conjuntamente. 


313 IF n$="z" THEN GO TO ze 
314 IF n$="b" THEN GC TO bl 
315 IF ns="p" THEN GO TO pa 
316 |F n$="n" THEN GO TO nb 
317 IF n$="e" THEN GO TO 800 
318 IF n$="v" THEN GO TO va 
319 IF n$="o" THEN RETURN 
320 IF n$="+" THEN GO TO te 
321 IF n$="g" THEN GO TO gr 
330 GO TO pregunta 


Según la tecla que sea pulsada, saltamos hacia la subrutina 
correspondiente. Si todo está en orden, volvemos a la parte 
del programa 'Componer'. Así aseguramos poder pasar a 
elaborar la siguiente línea. Por ello introducimos 


1320 IF n$="o0" THEN GO TO 1800 
1330 GO TO 1280 


Ahora tenemos que ocuparnos de la ¡introducción de los 
diferentes parámetros. Comencemos con la rutina 'nb', o sea 
la pregunta, si con la línea se ha de iniciar una nueva 
imagen. Esta comienza con la línea 100. 


100 LET q$(1,z)="0": PRINT AT 21, NOT Pl: ''"¿Nueva 
imagen S/N (O=Menú)*",: PAUSE NOT Pl: LET f$=/NKEYS$ 
IF f$="S" THEN LET q$(1,z="1": CLS 
102 1F z=VAL "1" THEN GO TO 1066 
104 1F f$="N" THEN let q$(6,2-1)="1" 
106 IF f$<> "S" AND f$<>"n" THEN GO TO m 
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108 RETURN 


Ahora la introducción del texto: 


110 LET q$(2,z)=CHR$ O:PRINT AT 21, NOT Pl;"texto =" 
,, 2 INPUT LINE +9 

112 1F LEN +$> £0 THEN GO TO 110 

114 LET q$(2,2)=CHR$ (LEN +$) 

116 RETURN 


Ahora la pregunta por el número de línea: 


120 GO SUB 200: PRINT AT 21,NOT Pl;''Línea (1-20)=*"' 
, + INPUT LINE n$ 


Esto escribe los números de línea en la parte izquierda de 
la pantalla, y luego, si Vd. desea, esta seguridad: 


122 FOR s=VAL "1" TO 20: IF n$=SRTS s THEN GO TO 128 
124 NEXT s 
126 GO TO 120 


128 LET q$(3,z)= CHR$ (VAL,n$) :RETURN 


A partir de la línea 130 comienza la rutlna, la cual 
determina el tamaño de la escritura: 


130 PRINT AT 21,NOT PI;'*Tamaño de la escritura(l-9)'" 
y: LET f$=/NKEY$: 1F f$>"9" OR f£<"1" THEN GO TO 130 
132 LET q$(4,2)=CHR$ VAL f$ 

135 LET ys=CODE q$(4,z): LET xs=1+INT (ys?2) 

137 |F CODE q$(4,z)=2 THEN LET xs=1 

139 RETURN ' 


se trata la posibllidad de hacer parpadear líneas de manera 
muy sencilla: 
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140 LET q$(5,2)="0": PRINT AT 21, NOT Pl; 
"Intermitencia? S/N",,: PAUSE NOT Pl: 1F INKEYS 
="S" THEN LET q$(5,z)="1" 

142 RETURN 


Tambien la duración de la pausa de fija rápidamente: 


150 PRINT AT 21, NOT Pl; ''¿Cuántos segundos?'',: INPUT 
LINE n$: IF LEN nf$=0 THEN GO TO 150 


152 IF VAL n$<1 OR NAL n$>255 THEN GO TO 150 
154 LET q$(6,z)=CHR$ VAL n$ 
156 RETURN 


Los colores para el fondo, márgenes laterales y escritura 
los arreglamos asf: 


160 PRINT AT 21,NOT Pl; "Color (0-7)",,: PAUSE NOT Pl: 
LET f4=/NKEYS$: |F CODE f$<48 OR CODE fs>55 
THEN GO TO 160 

162 1F n$="f" THEN LET q$(9,z)=18 

164 1F N$="u" THEN LET q$(7,z)=f$ 

166 1F n$="h" THEN LET q$(8,z)=1% 

168 PRINT AT 21,NOT Pl,,: RETURN 


Ahora la pregunta por el cambio de color de los márgenes 
laterales; 


170 LET q$(10.2)="0": PRINT AT 21, NOT Pl; 
"Varlaciones de color? S/N'",: PAUSE NOT Pl: IF 
INKEYS=""S" THEN LET q$(10,z)="1" 

172 RETURN 


Con esto hemos terminado esta parte. Ahora sólo faltan tres 
rutinas que ya hemos Incluído en el programa, y son : a 
partir de línea 200 (escribir número de |Ínea en la parte 
izquierda de la pantalla), a partir de línea 500 (visuallzar 
una línea) y a partir de línea 800 el insertar una línea de 
texto. 


200 FOR ¡=11 TO 30: LET f$=STR$ 1: PRINT INK NOT Pl; 
PAPER VAL "7";AT [-10,NOT PI5f$(2): NEXT 1: RETURN 
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500 LET pS=t$: GO SUB 135: LET yy=CODE q$(3,z)*8: 
BORDER VAL q5(8,z):PAPER VAL q$(7,z): INK VAL 
q5(9,z) 

510 FLASH VAL q$(5,z): GO SUB big: FLASH NOT Pl: 
RETURN 


800 FOR k=d-=1 TO z STEP -1 

810 IF a$(k)=15 THEN GO TO 840 

820 LET af(k+1)=as(k) 

830 FOR ¡=VAL "1" TO 10: LET q$(i,k+1)=q8(1,k):NEXT 1 

840 NEXT k 

850 LET a$(z)=15 

860 LET q$(2,z)=CHR9 0: LET q$(3,z)=CHR O: LET q$(4,z) 
=8"1] ”" 

870 LET q$(5,2)="0": LET q$(6,z)=CHR$ 5: LET q$(7,z) 
="6: LET q5(8,2)="6" 

880 LET q$(9,z)="0": LET q$(10,z)="0" 

890 GO TO te 


Con esto podemos introducir textos y dejarlos transcurrir en 
la pantalla de la forma deseada. Pero tenemos que asegurar 
la posibilidad de corregir posibles faltas o de efectuar las 
necesarias modificaciones. 


Esto estaba previsto a partir de la línea 5000 


5000 CLS 
5010 LET anf=VAL "1":LET end=d 


Primero la pregunta, si únicamente se han de añadir nuevas 
líneas: 


5020 PRINT''¿Añadir texto?S/N'":PAUSE NOT PI: 1F 
INKEY$="S" THEN LET flag=1 GO TO 1200 

5030 CLS :PRINT"'¿Todas las ITnmeas? S?N'':PAUSE 
NOT Pl: 1F INKEYS$<>"N"THEN GO TO 5100 

5050 INPUT '"¿A partir de qué línea?'';LINE z$ 

5060 LET antf=VAL z5$ 
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Para estar seguro, puede Introducir aquí una pregunta 
respecto a la exactitud de la Introducción. Después se 
continúa con la corrección. Para ello utlllzaremos el código 
a partir de la |fnea 2130. 

5100 FOR anf TO end 

5110 IF a$(z)=1$ THEN GO TO m 

5120 GO SUB 2130 


y muy Importante: 


2380 IF m$="2" THEN RETURN 
Ahora segulmos con: 


5130 PRINT AT NOT PI,NOT Pl; ''Lfnea'",z 
5200 PRINT AT 21,NOT Pl;"Camblar S/N 
(O=Menu,W=Publicidad)": PAUSE NOT PI:LET f$=INKEYS$ 
3 1F f$="S" THEN GO TO 5600 
5210 IF f$="0" THEN GO TO m 
5220 1F F$="w" THEN LET m$="3": PRINT AT 21,NOT P[,,:GO 
TO 2130 
5300 NEXT z 
5310 GO TO m 
Sl se ha de. hacer algún cambio, activaremos la rutina 
'*preguntar''. 


5600 GO SUB preguntar 

5610 1F n$<>"y" AND n$<>"e" THEN GO TO 5120 
5620 |F CODE q$(2,z)=0 THEN GO TO 5900 

5630 LET a$(z)=15 

5640 LET a$íz,1 TO LEN +$)=+$ 

5700 60 TO 5120 

5900 GO SUB 400 

5910 CLS : 60 TO 5120 


Lo único que falta es asegurar el programa y, con él, las 
Ifneas, s] se han de utllizar más tarde. Para conseguir la 
autoejecuclón se deberTa Introducir la sigulente |fnea: 
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8000 POKE 23730,255: POKE 23731,125: LOAD *"p";1;"c" 
CODE 


si se trabaja con casette. Los POKEs son necesarlos, para 
que CLEAR no borre todas las varlables y, con ello, todas 
las líneas memorizadas. 


La rutina de memorización puede tener la sigulente forma: 
9900 CLS : PRINT "Asegurar el programa/FI|NAL" 


9910 PRINT '! "1= memorizar en Microdrive""'" 
2= memoriza; en casette"''"3 = FINAL sin 


memorizar""'"4 = Menu" 
9920 PAUSE NOT Pl: LET m$=INKEYS$: IF m$="3" THEN 
CLS : STOP 


9925 IF mó="4" THEN GO TO m 

9930 |F M5="2" THEN GO TO 9980 

9940 IF m$<>"1" THEN GO TO 9920 

9945 ERASE "m"; 1;"awis" 

9950 SAVE *"m";1;"awis" LINE 8000 

9955 REM SAVE*"m";1;"c" CODE 32256,340 
9960 GO TO 9900 

9980 CLS: SAVE "awis" LINE 8000 

9985 CLS: PRINT ''¡Por favor pulsar una tecla!'' 
9990: SAVE "c" CODE 32256,340 

9995 GO TO m 


En la línea 9955 hay que borrar el REM, si la parte del 


código máquina no esta aún memorizada en el Microdrive c 
casette correspondiente. 
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Bien, ya hemos terminado y el asunto puede funclonar+ Quizás 
quiera Vd., después de algun tiempo, introducir otras 
posibllidades en el programa. Por ejemplo, el campo af 
podría fljarse a menos de 30 caracteres, desconectar el 
centrado automático y conseguir diferentes tamaños de 
escritura en una l|fnea. También puede Vd. introducir la 
posibilidad de dejar transcurrir ciertas l|fneas en la 
pantalla. Esto desde luego, debería hacerse en código 
máquina para que no sea muy lento. No hay límites para su 
fantasTa. 


Pero en este momento, el programa es aceptable. Cuando Vd. 
lo carga, se Inicla automátIcamente y muestra el menú. Tenga 
Vd. en cuenta, que cuando el programa trabaja, es posible 
interrumpirlo a través de las teclas 'm' para el menú, 'p' 
para pausa, uz” para número de línea y "k" para 
correcciones. 


Al final del capítulo vemos todo el listado completo del 
programa. 
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REM XEXARAKEREK KE XK XRAXARER 
REM RARRA RI AA AA DAA ARANA 


1 REM OO ORAR 
2 REM RARAKERAREAK ERAN 
3 REM 

4 REM FERRE-MORET 
S REM 

6 

7 


9 60 SUB 80 

10 LEY big=3500: LET m=9000: 60 TO m 

20 LET d=25 

30 DIM qs$(10,d): DIM a$(d,32) 

O FOR k=1 TO d: LET q$(4,k)="1": LET q$(6,k)=CHR$ 5: LET 
Q6(7,k)="6": LET q$(8,k)="6": LET q$(9,k)="0" 

50 LET q$(1,k)="0": LET q$(5,k)="0":2 LET q$(10,k)="0": NEX 


60 LET big=3500: LET m=9000: LEY +lag=NOT PI 
70 LET vs$=" ":; LET 1$=" " 
80 LET nb=100: LET te=110: LET ze=120: LET gr=130: LET bl= 
140 : 
82 LET pa=150: LET +a=160: LET va=170 
84 LET pregunta=300 
90 RETURN 
100 LET q$(1,2)="0"2 PRINT AT 21,NOT PI; "NUEVA PANTALLA ? ( 
s/n) (O=MENU)",: PAUSE NOT Plz LET f3$=INKEYS: 1F 4f3%="s" THEN 
LET q$t1,z)="1": CLS 
102 IF z=VAL “1” THEN 60 TO 106 
104 IF +$="n" THEN LEY q$(6,z-1)=CHR$ 1 
106 I1F 4$<>"5" AND £3$<>"n" THEN GO TO m 
108 RETURN 
110 LET q$(2,z2)=CHR$ O: PRINT AT 21,NOT Plz"Texto=",,: 1NPU 
T LINE ts 
112 IF LEN t$>30 THEN GOD TO 110 
114 LET q$(2,z)=CHR$ (LEN t%) 
116 RETURN 
120 60 SUB 200: PRINT AT 21,NOT PIz"Limeati-20) =",,: INPUT 
LINE ns 
122 FOR s=VAL "1" TO 20: 1F n$=STR$ s THEN GO TO 128 
124 NEXT s 
126 60 TO 120 
128 LET q$(3,z)=CHR$ (VAL n$): RETURN 
130 PRINT AT 21,NOT PI;"Altura escritura (1-9)",: LET £$=IN 
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KEYS: 1F +4$>"9" DR £$<"1" THEN GO TO 130 

132 LET q$(4,z)=f5 

135 LET ys=VAL q$(4,z): LET xs=1+INT (ye/2) 

137 IF q$(4,2)="2" THEN LET xs=1 

139 RETURN 

140 LEY q£$(5,2)="0": PRINT AT 21,NOT PI;"Parpadeo ? (s/n)", 
,»: PAUSE NOT Pis IF INKEY$="s" THEN LET q$(5,2)="1" 

142 RETURN 

150 PRINT AT 21,0; "Durante cuantos segundos ?2",:z INPUT LIN 
E n$: IF LEN n$=0 THEN GO TG 150 

152 IF VAL n$>250 OR VAL n$<1 THEN 60 TO 150 

154 LET q$'6,2)=CHR$ VAL n$ 

156 RETURN 

160 PRINT AT 21,NOT PIz"Color ?% (0-7)",,: PAUSE NOT Pl: LET 
Ff$=INKEYS$: 1F CODE £$<48 OR CODE 4£$>55 THEN 60 TO 160 

162 1F n$="*$" THEN LET q$(9,2)=$$% 

164 IF n$="u" THEN LET q$(7,2)=4$% 

166 1F n$="h" THEN LET q$(8,z)=$% 

168 PRINT AT 21,NOT PI,,: RETURN 

170 LET q$(10,7)="0": PRINT AT 21,NOT FPl;5"Variaciones de co 
lor ? (s/n)”,: PAUSE NOT Plz IF INKEYS="s" THEN LET qs$(10,z 
yj=rqr 

172 RETURN 

200 FOR i=11 TO 30: LET +$=STR$ 1: PRINT AT ¡i-10,NOT Pl; FA 
PER VAL "7%, INK NOT PIzf$(2): NEXT iz: RETURN 

300 PRINT AT 21,NOT Plz PAPER VAL "7", INK NOT PI¿"TUHEF 
ZBGPNEV AOk A 

305 LET vs=" " 

310 PAUSE NOT Plz LET n$=INKEYS 

311 PRINT AT 21,0,, 

312 1F ns="u" OR n$="h" OR n$="4" THEN 60 TO +a 

313 IF n$="z" THEN GO TO ze 

314 IF ns="b" THEN GO TO bl 

315 IF n$="p" THEN GO TO pa 

316 IF ns="n" THEN (GO TO nb 

317 1F n$="e" THEN GO TO 800 

318 IF n$="v" THEN 60 TO va 

319 IF n$="0" THEN RETURN 

320 IF n$="t" THEN 60 TO te 

321 IF n$="g" THEN GO TO gr 

330 GO TOD pregunta 

400 FOR k=z TO d-1 
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402 
406 
420 
425 
430 
500 


LET a$(k)=a$(k+1) 

FOR r=VAL "1" TO 10: LET q6(r,k)=q$tr,k+1): NEX1 r 
NEXT k 

LET a$(d)=15$ 

RETURN 

LET ps=t$: GO SUB 135: LET yy=CODE qs(3,2)x8: BORDER Va 


L q$í(7,2): FAPER VAL q$(8,z2>: INK VAL q$(9,z) 


s10 
e00 
801 
810 
820 
830 
840 
850 
B60 
870 


FLASH VAL q$(5,2): GO SUE b1g: FLASH NUT Fl: RETURN 
FOR k=d-1 TO z STEP -1 

IF astk)=1% THEN NEXT + 

IF a$(k)=1% THEN 50 TO 840 

LET as1k+1)=a%(k) 

FOR 1=VAL "1" TO 10: LEY q$(1,k+1)=q$(1,k):2 MEXT 1 
NEXT k 

LET a$1z)=1$6 

LET q$(2,7)=CHR% 0: LET q$(3,z2)=CHR$ Oz LET q$14,2)="1” 
LET q$(5,2)="0": LET q$(6,z2)=CHR$ 5: LET q$(7,2)="6 


ET q$(8,z)="6" 


8rRo 
890 
1000 
nn”: 
1010 
1100 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1280 
1290 
1310 
1320 
1330 
1800 
1900 
2000 
2010 
2020 


LET q$(9,7)="0": LEY qé$(10,z)="0" 
60 TO te 
CLS : FRINT ***: FLASH 1;5"Borrar todas las lineas 7? 15/ 


PAUSE NOT Pf: IF INEEYS$="s" THEN GO TO 1100 
CL5s : LEY +lag=1: 60 TO 1200 

CLEAR : GO SUE 20 

FOR z=VAL "1" TO d 

IF +lag=VAL "1" AND a$(íz)<>1% THEN 60 TO 1800 
GO SUB nb 

GO SUB 200: GO SUB te 

IF CODE q$(2,2)=0 THEN GOD TO m 

LET a$tz,1 TO LEN t$)=t$ 

60 SUB ze: GO SUB gr 

GO SUB 500 

GO SUB pregunta 

IF n$="t" THEN LET a$(z,1 TO LEN t$)=t$ 

IF n$="o0" THEN GO TO 1800 

GO TO 1280 

NEXT z 

GO TO m 

CLS : IF a$(1)=1$% THEN GO TO m 

LET anf=VAL "1": LET end=d 

PRINT ??>"Todas las lineas ? (s/n)": PAUSE NOT Plz LEI 


z$=INKEYS$: CLS 
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2030 IF z$<>"n" THEN 60 TO 2100 

2040 INPUT "Primera linea = 2“; LINE z%$: IF z$="" THEN LET 

z25="1" 

2050 LET anf=VAL z$: IF anf<d THEN 60 TO 2040 

2060 INPUT "Ultima linea = 2"; LINE z$: 1F z$="" THEN LET z 

$=STRS$ d 

2070 LET end=VAL z5$: 1F end>d THEN 60 TO 2060 

2080 IF anf>end THEN GO TO 2000 

2100 FOR z=anf TO end 

2110 IF INKEYS$="m" THEN 60 TO m 

2120 IF a$(íz)=1% THEN GO TO 2100 

2130 BORDER VAL q$(7,z): PAPER VAL q$(9,z): INK VAL q$(9,z) 

2200 LET yy=8XCODE q$1(3,z) 

2210 GO SUB 135 

2220 LET p$=a$(z,1 TO CODE q$(2,z)) 

2230 IF q$(1,2)="1" THEN CLS 

2240 FLASH VAL q$(5,z) 

2300 GO SUB big 

2310 FLASH NOT PI 

2320 IF q$(10,2)="1" THEN FOR k=0 TO 7: BORDER kz PAUSE 50: 
NEXT k 

2330 IF m$="2" THEN RETURN 

2340 IF CODE q$16,z)=NOT PI THEN LET q$(6,z)=CHR$ 1 

2390 IF CODE q$(6,z)=0 THEN LET q$(6,z)=CHR$ 1 

2400 PAUSE SOXCODE q$(46,z) 

2410 IF INKEYS$="p" THEN PRINT AT 0,0;“Pausa": PAUSE Oz PRIN 

T AT 0,03" ": GD TO 2410 

2420-1F INKEYS$="2z" THEN PRINT AT 0,0;"Linea "3z: PAUSE O: P 

RINT AT 0,03" "3 GD TO 2410 

2430 IF INKEY$="k" THEN 60 TO 5200 

2500 NEXT z 

2600 60 TO 2100 

3500 LET xx=(256-BXxs8LEN p%)/2 

3509 IF yy=256 THEN LET yy=255 

3510 LET i=23306: POKE i,xx:z POKE i+1l,yy: POKE i+2,xs: POKE 
i+3,ys: POKE 1+4,8: LET ¡i=1+4: LET wm=LEN p$: FOR n=1 TO ws P 

OKE i+n,CODE p$(n): NEXT m: POKE i+w+1,255: LET w=USR 32256: 
RETURN 

5000 CLS 

5010 LET anf=VAL "1": LET end=d 

5020 PRINT ”>"Adjuntar texto ? (s/n)": PAUSE O: IF INKEYS="s 
" THEN LET +lag=1: 60 TO 1200 
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5030 CLS 2 PRINT **“Todas las lineas ? (s/n)”"z PAUSE NOT Plz 
IF INKEYS<>“n”" THEN CLS 3 60 TO 5100 

5050 INPUT “Desde que linea ? “; LINE z5$ 

5060 LET anf=VAL z$ 

5100 FOR z=anf TO end 

5110 IF a$(z)=1$ THEN GO TO m 

5120 60 SUB 2130 

5130 PRINT AT NOT PI,NOT Plz"Linea “zz 

5200 PRINT AT 21,NOT PI; "Cambiar? (s/n)<0O=Menu W=Anuncio>": 

PAUSE NOT Plz LET f$=1NKEYS: 1F +$$="s" THEN 60 TO 5600 

5210 1F f$="0" THEN GO TO m 

5220 IF f$="4w" THEN LET as="3": PRINT AT 21,0,,: 60 TO 2130 

5300 NEXT z 

5310 60 TO m 

5600 60 SUB pregunta 

5610 1F ns$<>"t" AND n$<>"e"” THEN GO TO 5120 

5620 IF CODE q$(2,7)=0 THEN 60 TO 5900 

5630 LET a$(z)=1$9 

5440 LET a$(z,1 TO LEN t$)=tS 

5710 60 TO 5120 

5900 GOD SUB 400 

5910 CLS 2: GO TO 5120 

8000 POKE 23730,255: POKE 23731,125: LOAD “c"CODE 32256: REM 
: LOAD X"m"3153"c*“CODE 

8015 LET flag=NOT PI 

9000 INK Oz BORDER 6: PAPER 6: CLS 

9010 LET p$="Menu ANIS": LET yy=10: LET x5=22 LET ys=4 

9020 GO SUB big 

9030 PRINT AT 9,33"1 = Componer nuevo anuncio" 

9040 PRINT >”* 2 = Comprobar y/o modificar" 

9050 PRINT >>" 3 = Transcurrir publicidad" 

9060 PRINT >>" 4 =F IN“ 

9070 PRINT AT 21,2; "Introduzca la cifra deseada” 

9100 PAUSE O: LET m$=INKEYS 

9110 IF m$="1" THEN GO YO 1000 

9120 IF m$="2" THEN 60 TO 5000 

9130 IF am$="3" THEN GOD TO 2000 

9140 IF mé="4" THEN 60 TO 9900 

9150 6D TO 9100 

9500 CELS : PRINT "Almacena programa/FIN" 

9910 PRINT ”*"1 = almacenar en el microdrive""*"2= almacenar 
en casette"””*"3 = FIN sin almacenamiento”””"4 = Menu" 


9920 PAUSE NOT Pl: LET m$=INKEYS: 1F ms$="3" THEN CLS : STUF 


9925 IF m$="4" THEN 60 TO m 

9930 1F m$="2" THEN GO TO 9980 

9940 1€ ms$<>"1" THEN GO TO 9920 

9945 REM ERASE "m"z13"awis" 

9950 REM SAVE *"m"ziz"awis" LINE 8000 
9935 REM SAVE X"m"31;3"c"CODE 32256, 340 
9960 66 TO 9900 

9980 CLS : SAVE "AWNIS" LINE 8000 

9985 CLS : PRINT "Por favor pulse una tecla! ” 
9990 SAVE "c"CODE 322%6,340 

99953 GO TO m 


CAPITULO 10: 
EL SPECTRUM EN LA PEQUEÑA EMPRESA 


Aspectos generales 


¿El ZX Spectrum en aplicaciones profesionales? Quizás esto 
suene un poco presuntuoso. Pero si observamos la situación 
de modo realista, nos daremos cuenta de que el Spectrum 
puede realizar una serie razonable de trabajos y, por 
consiguiente, puede significar un ahorro de tiempo para 
'pequeños empresarios'. 


Por encima de esto, ofrece la posibilidad económica de 
introducción en la elaboración de datos. Si se trata de un 
Spectrum Plus, o de un Spectrum con teclado adicional y dado 
que existen Microdrives e impresoras para su disposición, 
este pequeño empresario no añorará nada más, si posee los 
programas adecuados. 


Los trabajos más frecuentes caen en el campo del procesado 
de textos, ficheros de clientes y administración de datos, o 
sea administración de almacén y volumen de ventas. Para el 
procesado de textos hemos mencionado en el capítulo 4 el 
programa Tasword 2. Con este programa se pueden redactar 
perfectamente cartas y pequeños documentos. También pueden 
escribirse facturas normalizadas, creando un formulario de 
factura, y memorizando luego el mismo. Para cada factura se 
carga y se 'rellena'. 


A continuación queremos desarrollar un programa para fichero 
de clientes, así como una administración de almacén y 
volumen de ventas. Juntamente con el procesador de texto 
Tasword 2 y el programa gráfico descrito en el capítulo 8, 
se dispone de un paquete amplio de programas que pueden 
traer muchos beneficios. 
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Quien c«qulera utilizar su Spectrum de forma auténticamente 
profesional, se proporcionará los Microdrives como memoria, 
para evitar tiempos de espera al cargar y almacenar 
programas. Por ello, vamos a comenzar con un pequeño 
programa de mando, que simplifica mucho el trabajo 
rutinario, ya que los programas pueden ser seleccionados 
desde un menú. A parte de esto, este programa también se 
puede utilizar en plan particular. 
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El programa de mando 


Si se conecta el Spectrum o ha Introducido NEW y despues RUN 
y ENTER, el Spectrum comprueba sli hay una casette en el 
Microdrive 1. En este caso, el directorio se chequea y se 
busca un programa "run". Si este programa existe, se carga 
automáticamente. 0 sea, vamos a nombrar a nuestro programa 
de mando 'run', y vamos a asegurario con la opción 'LINE*, 
de forma que el inicio automático esté garantizado. 


El. programa es muy sencillo y no necesita de ninguna 
aclaración. 


100 CLEAR 65535: PAPER O: INK 6: BORDER 0:CLS 

110 PRINT INK 3: TAB 7; "MENU PRINCIPAL" 

120 PRINT HR HN HR RHINO 

130 PRINT'!"! "1 = Administracion de almacen y 
volumen de ventas" 


140 PRINT 1 "2 = Fichero de cllentes" 

150 PRINT  '! "3 = Representaciones graficas" 
160 PRINT  '! "4 = Procesado de texto" 

170 PRINT— '* "5 = FINAL" 


200 PRINT AT 21,0,,AT 21,4; INK 4; "Por favor, 
Introducir un numero" 

300 PAUSE O: LET m$=INKEY$ 

310 IF mí= "5" THEN CLS : PRINT AT 9,11; "FINAL" 

¿STOP 

320 IF m$= "1" THEN GO SUB 600: LOADX* "m";1;"Busyman" 

330 1F mó= "2" THEN GO SUB 600: LOAD* "m";1;"Busydat" 

340 IF mí= "3" THEN GO SUB 600: LOAD* "mp";1; 
"Busygraph" 

350 IF m$= "4" THEN GO SUB 600: LOAD* "mp";1;"Tasword" 

400 PRINT AT 21,03 FLASH 1; 
DURA ARA Falsa Introducción*****%x 11 

410 FOR 1=1 TO 10: BEEP .05,1: NEXT ¡: GO TO 200 

600 CLS: PRINT AT 3,9; "Por favor, esperar": RETURN 


Este programa se almacena después de su introducción, con el 
comando directo: 
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SAVE *"m"313"run" LINE 1 


Ahora vamos a comenzar con el tichero de clientes y la 
administración de almacén y volumen de ventas. En estos dos 
programas vamos a proceder de la siguiente manera: Primero 


se dará una descripción de los listados, o sea una 
explicación de las varlables y campos, así como la 
explicación de cada parte del programa. Después se adjunta 
el listado completo del programa, al cual se le añade un 


'manual de manejo' del mismo. 
Si Vd. quiere realizar algunos cambios en el programa, no 


será ningún problema orientarse en los listados, después de 
las aclaraciones dadas. 
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El fichero de clientes Busydat 


Comenzemos con el fichero de clientes. Ya que no queremos 
construir un fichero convencional, es decir, que el programa 
no sólo memorice el nombre y dirección de un cliente, sino 
que también memorice un determinado comentario respecto a 
cada nombre, estos comentarios se dlvidirán en 5 categorías, 
que Vd. puede elegir llbremente. Estas categorTas pueden ser 
el volumen de compras, los principales intereses, o' si así 
se desea, el color del cabello. Naturalmente debe ser 
posible seleccionar clertos clientes del fichero que cumplan 
determinados criterios. 


Otra pequeña peculiaridad del fichero: los clientes a fichar 
de una pequeña empresa, generalmente no están distribufTdos 
por toda España o Europa. Lo más corriente es que no se 
memoricen más de 5 o 10 localidades. A causa de esto, se va 
a prever, para cada cliente, un código para su localidad, 
como máximo 10 localidades, que Vd. puede elegir según su 
criterio. Esto le ahorrará mucho espacio de memoria, pero en 
la mayoría de los casos será suficiente. Quien necesite más 
localidades, puede memorizar por ejemplo dos versiones del 
programa. 


La estructura del programa se ha construTdo de tal forma, 
que todos los nombres y datos son cargados juntamente con el 
programa. Esto permite tiempos de acceso relativamente 
cortos, pero también tiene la ventaja de que quien no 
disponga de microdrives, pueda trabajar ¡gualmente con el 
programa» Unicamente tiene la desventaja de no poder 
utilizar el programa de mando, y contar con tiempos de 
espera más largos. 


Ahora al programa propiamente dicho. Contiene un menú que 
comienza en la lfnea 9000. 
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Aquí se dan las posibilidades de introducir datos, leer, 
corregir y  borrar+ Los sigulentes puntos son la entrada de 
los datos básicos, o sea de la categoría de los comentarios, 
los propios comentarios y las localidades con número 
directivo postal. 


La primera línea del programa tija los colores para el 
primer plano y el fondo. Estos se pueden cambiar en 
cualquier momento según sus deseos, pero entonces deberla 
variar todos Jos demás comandos correspondientes en el 
programa. 


A partir de la línea 20 se reservan los espacios de memoria 
para los diferentes campos. Las |fneas 200 hasta 999 
contienen diferentes subrutinas, que son aplicadas en 
deteminados sectores del programa. A partir de la línea 1000 
se maneja la ¡introducción de un cllente. En ello se 
distingue entre Señor, Señora y Empresa. Respecto a cada 
cllente se puede memorizar el nombre, apellidos, el código 
para la localidad donde reside, así como un número de 
cliente. A continuación puede ser clasificado en cinco 
categorías, de las cuales 4 están previstas como cadena y la 
quinta como número. Este es el espacio en el cual se puede 
introducir, por ejemplo, el número de cuenta bancaria del 
cliente. 


La lectura del fichero de clientes comienza a partir de la 
Ifnea 2000 con un menú. Aquí Vd. puede decidirse sí quiere 
leer todos los clientes, o únicamente una selección de 
ellos. Vd. puede buscar un nombre determinado, un número de 
cliente, clientes con deteminados comentarios o a partir de 
un número sucesivo. También al leer dispone Vd. de la 
posibilidad de corregir cualquier entrada. Si así lo desea, 
el programa salta a las líneas superiores a 3000, en las 
cuales se efectúan las modificaciones propiamente dichas. 
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A partir de la línea 4000 se borra una entrada. Esto se 
realiza fácilmente, todas las demás entradas se corren un 
puesto hacia abajo. 


k$(a,4) Código para los comentarios de las primeras 
cuatro categorias 
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REM EXEFIURLCRACASAI CAI CIRR 
REM ERIBLARIAIADLARARAE AR 
REM 

REM FERRE-MORET 
REM 

REM FEERAALASAERERE AFERRA 
REM ASAERECILLFAEAAAADI A 


BORDER O: PAPER Oz INK 6 
LET m=9000: GO TO m 
LET a=100 
30 DIM q$(a): DIM nf(a, 18) 
40 DIM v$(a,22) 
50 DIM s$t(a,22) 
€0 DIM p$(10,272) 
635 FOR í=1 TO 10: LET p$(i,5 TO 9)="libre":z NEXT i 
70 DIM k(a) 
80 DIM t$(5,10): DIM k$(a,4): DIM z(a) 
85 FOR 1=1 TO Ss LET ts(1)=" libre": NEXT 1 
90 DIM c$(4,4,10) 
100 GO TO m 
200 LET f$="0”: CLS 2 PRINT TAB S3"SELECCION""> 
205 PRINT “1 = Buscar nombre"”*"2 = Buscar numero de client 
e"??"3 = Buscar comentario"””"4 = A partir de un numero dado 
"2>>%5 = Menu" 
210 PAUSE O 
215 IF INKEYS$="5" THEN 50 TO m 
220 1F INKEYS="1" THEN GO TO 2130 
225 IF INKEYS="2" THEN 60 TO 330 
230 IF INKEYS$="4" THEN (0 TO 300 
235 IF INKEYS="3" THEN 60 TO 8000 
240 60 TO 210 
260 CLS : LET gt="Sra. ” 
264 IF n$(i1,1)="h" THEN LET g$="Sr. “ 
265 1F n$(1,1)="e" THEN LET g$="Empresa " 
269 PRINT AT 0,5; INVERSE 1;i;AT 4,0; INVERSE 03g$ 
270 LET k=i:z GO SUB 500: PRINT AT 5,03v$(i,1 TO 1)3" "; 
2735 LET k=iz GO SUB 510: PRINT — INVERSE 1;3n$(1,2 TO 1) 
280 PRINT AT 7,035$(i) 
290 PRINT ps(VAL q$(1)) 
292 PRINT AT 1,0;"Numero de cliente "¿3k(ti);AT 10,03 "Comenta 
rio:" 


pas 
33 NOU dns > 
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293 GO SUB 560 

295 RETURN 

300 INPUT "Desde num. ? (1 — "z(a)z")",m% 

305 FOR 1=1 TO LEN m$: IF CODE m$(1)<48 OR CODE m$(1)>57 TH 
EN 60 TO 300 

310 NEXT 1 

315 IF VAL m$>a THEN 60 TO 300 

320 LET anf=VAL m$ 

325 60 TO 2220 

330 INPUT "Que numero? ";m$% 

335 FOR i=1 TO a: 1F STR$ k(i)=m$ THEN GO TO 350 

340 NEXT i 

345 CLS : PRINT AT 10,83 FLASH 1;"No existe": PAUSE 150: GO 
TO 9000 

350 60 SUB 260 

360 GO TO 700 

500 FOR 1=LEN v$(k) TO 1 STEP —1: 1F vs$tk,1)<>" " THEN 60 
TO 505 

504 NEXT 1 

505 RETURN 

510 FOR 1=LEN n$(k) TO 1 STEP —1:2 1F n$(k,1)<>" " THEN 60 
TO 515 

514 NEXT 1 

515 RETURN 

550 FOR 1=1 TO 12: PRINT AT 9+1,0,,: NEXT 1: RETURN 

560 FOR 1=1 TO 4: PRINT AT 10+1,0;1;TAB 3¿t$(1)32z 1F k$(i,1 
3>" " THEN PRINT TAB 203c$(1,VAL k$(i,1)) 

562 NEXT 1 

565 PRINT AT 15,0;"5";TAB 3;t$(5);TAB 20;z (1) 

570 RETURN 

600 FOR 1=1 TO 10: PRINT AT 1+10,0;1;TAB 33p*(1)3 NEXT 1 
602 INPUT “Codigo para poblacion "¿ms 

604 LET qs$(k)=m$: GO SUB 550 

604 PRINT AT 8,0;p*$ (VAL q$(1k>) 

610 RETURN 

620 REM correccion comentario 

630 INPUT "Num. de la categoria? (1-5)"¿m$: IF CODE m$(1)>5 
3 OR CODE m$(1)<49 THEN 60 TO 432 

635 FOR j=16 TO 21: PRINT AT j¿,0,,:3 NEXT j 

636 1F m$="5" THEN INPUT "Numero = "zz(k):z GO TO 3300 

640 FOR j=1 TO 4: PRINT AT 17,0+3,033;3TAB 33CS (VAL m$,j): N 
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650 INPUT "Comentario de codigo (O=ninguno)"3 LINE x$: IF x 
$="0" THEN LET k$(k,VAL m$)=" ": GO TO 3300 

660 1F x$<"1" OR x$>"4" THEN 60 TO 650 

670 LET k$(k, VAL" ms) =x$ 

690 GO TO 3300 

700 PRINT AT 21,0; INK 4;"Menu......Correccion.....Borrar" 
710 PAUSE O 

715 1F INKEY$="b" THEN GOD TO 4100 

720 IF INKEYS$="c" THEN 60 TO 3100 

730 IF INKEY$="m" THEN GO TO m 

740 PRINT AT 21,0,, 

745 PRINT AT 21,05 

750 GO TO 700 

800 REM nueva localidad 

810 FOR i=1 TO 10 

820 IF p$(i,1)=" " THEN GO TO 840 

825 NEXT i 

830 CLS 2: PRINT FLASH 1;“No acepto ninguna localidad mas": 
PAUSE 150 

839 GO TD 600 

840 LET cs$(k)=STRS i 

845 LET ps(i)=m$ 

850 PRINT AT 8,05p*$(11í) 

855 FOR i=1 TO 11: PRINT AT 10+i,0,,3 NEXT i 

860 60 TO 610 

1000 CLS : REM EER£RENTRADASxX 4% 

1020 FOR k=1 TO a 

1030 IF n$(k,1)=" ” THEN 60 TO 1100 

1040 NEXT k 

1050 PRINT AT 10,8; FLASH 1;"FICHERO COMPLETO": PAUSE 300 
1070 GD TO 9000 

1100 INPUT “Sr. /Sra./Empresa H/S/E”"jm$ 

1101 1F m$="h” THEN LET n$(k,1)="h":* GO TO 1106 

1102 IF m$="s" THEN LET n$(k,1)="5": GO TO 1106 

1103 IF m$="e" THEN LET n$(k,1)="e": GO TO 1106 

1104 60 TO 1100 

1106 LET g8="Sra."s 1F n$(k,1)="h" THEN LET g$="Sr."” 
1107 1F n$(k,1)="e" THEN LET g$="Empresa"” 

1108 PRINT AT 5,039%3 

1109 INPUT “Nombre propio = ";v$(k): 60 SUB 500 

1110 PRINT v$(k,1 TO 1);" * 

1112 INPUT "Apellido = "3nS3(k,2 TO > 
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1113 IF CODE n$(k,2)>95 THEN LET n$(k,2)=CHRs$ (CODE n$(k, 2) 
-32) 

1115 PRINT n$1k,2 TO ) 

1140 INPUT "c/ = "¿s$(k): PRINT AT 7,0355$(k) 

1150 GO SUB 400 

1160 INPUT "Numero de cliente = ";¿ktk) 

1165 PRINT AT 0,03 "Numero de cliente = "¿k(k) 

1170 PRINT AT 12,0;"Comentario:": FOR i=1 10 4: PRINT 1374B 

3¿t$(i): NEXT i 

1175 FOR i=1 TO 4: 1F k$(k,i)>"0" THEN PRINT AT 12+,,203c5$1 

i,VAL k$(k,i)) 

1176 NEXT i 

1179 PRINT AT 17,03"5 "zt$(5);TAB 203z (k) 

1180 INPUT "num. de la categoria (O=fin)"; LINE m$: IF ms="0 
" THEN 60 TO 1300 

1190 IF m$<"1" OR m$>"5" THEN GO TO 1180 

1200 IF m$="5" THEN INPUT "Citra "52(k): PRINT AT 17,205z (k 
): 60 TO 1180 

1210 FOR i=i TO 4: PRINT AT 17+1,3;5 PAPER 73 INK Ozi53" "“z3cos$t 

VAL m$,i): NEXT i 

1220 INPUT "Codigo = (O=ninguno) "¿x%$: IF x$="0" THEN GO TO 
1170 

1230 IF x$<"1" OR x$>"4" THEN GO TO 1220 

1240 LET k$(k,VAL m$)=x% 

1245 FOR i=18 TO 21: PRINT AT i,0;3” "3 NEXT i 
1250 GO TO 1170 

1300 INPUT "Otra inscripcion? (s/n) "; LINE m$ 

1302 IF a$<>"s"” THEN 60 TO 9000 

1305 CLS 

1310 LET k=k+1 

1320 IF k>a THEN 60 TO 1050 

1330 IF n$(k,1)<>" ” THEN 60 TO 1310 


2000 CLS : REM XkKESKLECTURANIMIR 

2010 LET k=1 

2100 PRINT AT 10,8;”*Todos los nombres? (s/n) ": PAUSE O 
2120 IF INKEY$<>*n" THEN 60 TO 2200 

2125 60 TO 200 

2130 CLS : INPUT "Nombre buscado = "¿r% 

2132 LET antf=1 

2135 FOR i=anf TO a 


2140 1F rs$=n$(i1,2 TO 1+LEN r$) THEN 60 TO 2160 

2145 NEXT i 

2150 CLS : PRINT AT 10,5; FLASH 15" El nombre no existe ": P 

AUSE 200: GO TO m 

2160 60 SUB 260 

2165 LET anf=i+1 

2170 PRINT AT 21,0;"Seguir buscando? (s/n) ": PAUSE O: PRINT 

AT 21,0,, 

2172 1F INKEYS="s" THEN 60 TO 2135 

2175 IF m$="4" THEN 60 TO 4100 

2176 1F m$="3" THEN 0 TO 3100 

2180 PRINT AT 21,0; INK 4;"Menu......Correccion..... Borrar" 

2183 PAUSE O 

2185 IF INKEY$="b" THEN 60 TO 4100 

2186 IF INKEYS="c" THEN 60 TO 3100 

2188 IF INKEYS="m" THEN GO TO m 

2190 PRINT AT 21,0,, 

2195 60 TO 2400 

2210 LET anf=1 

2220 FOP izanf TO a 

2250 CLS : IF n$1i,1)=" ” THEN GO TO m 

2260 60 SUB 260: PAUSE 99 

2360 IF INKEYS$<>""” THEN PRINT AT 20,0; "ENTER= seguir O bie 

n...": GO TO 2180 

2400 NEXT i 

2999 GO TO 9000 

3000 CLS : REM 3%A8£CORRECCIONXxk 

3010 60 TO 2130 

3100 PRINT AT 15,03 INK 2;"Que se ha de cambiar ? “3 PRINT 
INK 5;"A = apellido”,“N = nombre”,"C = calle, numero”, "P = 

poblacion + codigo postal","S = Sr./Sra.", 
3110 PRINT ——INK 5;"K = num cliente", "R = comentario”, "M = me 


3120 PRINT — INK 2;"D = Todo en orden" 

3130 PAPER O: PAUSE O 

3140 IF INKEYS="m" THEN GO TO m 

3150 IF INKEYS="a" THEN INPUT “Nuevo apellido = “¿n$(i1,2 TO 


3160 IF INKEYS="n" THEN INPUT “Nuevo nombre = ";v$(i) 
3170 1F INKEYS="n" THEN INPUT "Nuevo nombre = ";v$(1) 
3180 IF INKEY$="c" THEN INPUT "Nueva calle (y num.) = “¿st 
i) VAL 
3190 IF INKEYS$<>"s" THEN 60 TO 3230 

3200 INPUT "Sr./Sra./Empresa H/S/E"; LINE x$ 

3210 IF x$<>"h" AND x$<>"s" AND x$<>"e"” THEN 60 TO 3200 
3220 LET n$(i,1)=x38 

3230 IF INKEYS$="0" THEN LET anf=i:z GO TO 2200 

3240 IF INKEYS="k" THEN INPUT "Nuevo numero de cliente = "; 


3250 IF INKEY$="r" THEN GO TO 620 


3260 IF INKEYS$="p" THEN GO SUB 550: 60 SUB 600 
3300 60 SUB 260: 60 TO 3100 
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4000 CLS : REM 2XYIRBORRARALAR 

4010 6D TO 2130 

4100 PRINT AT 20,0,,AT 21,0;"Borrar ?(s/n)",,: PAUSE O 

4110 IF INKEYS="s" THEN 60 TO 4200 

4120 GO TOD 2260 

4210 LET n$(k-1)=n$(k) 

4220 LET s$(k-1)=5$(k) 

4230 LET k(k-1)=k(k) 

4240 LET k$(k-1)=k$(k) 

4250 LET vS(k-1)=v$(k) 

4260 LET q$tk-1)=g$(k> 

4270 IF n$(k,1)=" " THEN GO TO 4300 

4280 NEXT k 

4300 LET n$(a,1)=" ” 

4310 LET anf=1: GO TO 2260 

5000 CLS 2: PRINT "Composicion de los datos basicos” 

5002 PRINT ””"1 XLocalidades con numero postal” 

5004 PRINT ?”?"2 x*Categorias para comentarios" 

5006 PRINT ”>?*3 Comentarios” 

5008 PRINT >>”"4 xMenu” 

5010 PAUSE O: LET ms$=INKEYS: IF m$="4" THEN GOD TO m 

5020 IF m$<>"1"” THEN 60 TO 5040 

5021 CLS : PRINT “Localidades y numero postal" 

5022 FOR i=1 TO 10: PRINT AT 2xi,03i;0T 2%i,33p$(i)»z NEXT i 

5025 INPUT "Localidad + num. postal (O=fin)"3 LINE x%: IF x% 

="0" THEN 60 TO 5000 

5026 PRINT AT 21,03 INVERSE 13x% 

5027 INPUT “Num. correspond. ?(O=ninguno)"“3 LINE m$: 1F m$=" 
10" THEN 60 TO 5030 

5028 IF m$<"0" OR m$>"9" THEN 60 TO 5027 

5029 IF m$="0" THEN 60 TO 5000 

5030 LET ps(VAL m$)=x$ 

5039 GO TO 5021 

5040 IF a$<>"2" THEN 60 TO 35060 

5041 CLS : PRINT "Categoria de los comentarios” 

5042 FOR iz=1 TO Si PRINT AT 2%i,03iz4T 231,3;t6(i1)2 NEXT i 
5045 INPUT "Nombre categoria (O=finm)"” LINE x$: IF x$="0" TH 

EN GD TO 5000 

5046 PRINT AT 21,0,,AT 21,03 INVERSE 13x% 

5047 INPUT "Num. correspond. ?(0=ninguno)”"3abés 1F mb="0" THE 
“ 60 TO 3041 

5048 IF mb<"1" OR m$>"5" THEN GO TO 5047 

5050 LET tS(VAL mb) =x% 

5059 60 TO 5041 

5060 1F as$<>"3" THEN 60 TO 5000 

5061 CLS 3 PRINT "Introducir comentarios”: FOR i=1 TO 53 PRI 

NT AT i,O0zizAT i,3;t$(i)»: NEXT i 

5065 INPUT "Que categoria 7? (O=fin)"5 LINE m$: IF m$="0" THE 
N 60 TO 5000 Ñ 

5066 IF m$<"1" OR m$>”"5" THEN GO TO 5065 

5067 PRINT AT VAL m$,33 FLASH 15t$ (VAL m$) 

5068 IF m$="S" THEN PRINT **" Aqui se introduce siempre 
un numero al introducir un nombre, como por ejemplo, el volu 
men de ventas, etc...”: PAUSE 500: 60 TO 5061 

5070 FOR i=1 TO 4: PRINT AT 10+i,0;i5AT 10+i,3¿c6 (VAL m$,1): 
NEXT i 

5072 INPUT “Comentario = (0=FIN) "; LINE x$3 1F x$="0" THEN 
60 TO 5041 


167 


5074 PRINT AT 21,05x5 

5076 INPUT "Que numera ? (O=ninguno) "zo0$: IF o0$="0" THEN P 
RINT AT 21,0,,: 60 TO 5072 

5078 IF os<"1” OR 0$>"4" THEN GO TOD 5076 

5080 LET cs(VAL am$, VAL 0$)=x% 

5090 PRINT AT 21,0,,: 60 TO 5070 

6000 CLS : REM XXXALALIFINEADADA RN 

6010 PRINT AT 10,0;"Almacenar datos ? (s/n)"3:z PAUSE O 
6020 IF INKEYS="n" THEN GO TO 4200 

6030 CLS 3: PRINT " Almacenar datos"”**>*"1 = Microdrive">>>"2 
= Casette"”***"3 =ME N U"*>?"7"4 = F 1 N“: LET ams=INKEYS 
6040 IF m$="1" THEN GO TO 9996 

6050 IF m$="2" THEN 60 TO 4100 

6055 IF m$="3" THEN GO TO m 

6060 IF m$="4" THEN 60 TO 4200 

6070 GO TO 4030 

6100 CLS 3 INPUT "Nombre para el tichero = ";3x$: IF x$="" TH 

EN GOD TO 6100 

6110 SAVE x$ LINE 1 

6120 PRINT AT 15,0;"Rebobinar cinta para VERIFY ", "despues p 

ulse PLAY !":z VERIFY x$: GO TO 4030 

6200 REM LOAD 2"m";1;¿"run” 

8000 CLS : PRINT “Categorias": REM buscar 

B010 INK O: PAPER 5: FOR i=1 TO 5: PRINT AT 5Xi-4,0;i;TAB 3; 

t6(i): NEXT iz PAPER 4 

8020 FOR i=1 TO 4 

8030 FOR 1=1 TO 4 

8040 PRINT AT 51i-S5+1,18315" ";3c$(1i,1) 

8050 NEXT 1 

8060 NEXT i 

8065 PAPER O: INK 6 

8070 INPUT "Categoria  (O=FIN)";¿x$: 1F x$="0" THEN 6D TO m 

8080 IF x$<"1" OR x$>"5" THEN GO TO 8070 

8100 INPUT "Comentario = (O=sin com."; LINE o$: IF os="0" TH 
EN GO TO 8070 

8110 IF os$<"1" OR 0$>"4" THEN GO TO m 

8120 PRINT AT SAVAL x$-S+VAL 0$,205 FLASH 13c$ (VAL x$,VAL os 
) 

8130 PAUSE 100 

B300 FOR i=1 TO a 

8310 IF n$(i,1)=" ” THEN GO TO m 

8320 IF k$(i,VAL x$)=0$% THEN GD SUB 260: PAUSE 99: IF INKEY 
$<>"" THEN PAUSE O 

8330 NEXT i 

9000 CLS : PRINT — INK 3;TAB 4;"FICHERO DE DIRECCIONES", "xx 
AREA ENANA RAE AAA ARA AA", TAB 12; INVERSE 15" ? pcb " 
9010 LET y=4: PRINT AT 5,y53"1 = Entrada de datos” 

9020 PRINT AT 7,y3"2 = Leer datos" 

9030 PRINT AT 9,y3"3 = Corregir datos" 

9040 PRINT AT 11,y;5"4 = Borrar datos” 

9050 PRINT AT 13,y3"5 = Entrada de datos basicos" 

9060 PRINT AT 15,y3"6 = F I N” 

9070 PRINT AT 21,0;"Por +avor, introduzca una cifra" 

9100 PAUSE O: LET m$=INKEYS 

9110 IF CODE m$<49 OR CODE m$>54 THEN 60 TO 9100 

9120 GO TO 1000X%VAL ms 

97976 REM ERASE "m";15"Busydat" 

9997 REM SAVE Xx"m";1;5"Busydat" LINE 1 
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Aplicación de Busydat 


Cuando Vd. haya Introducido y memorizado este programa, se 
inicia la primera vez con GO TO 20. Después slempre con GO 
TO 1 y, al memorizar, debería serlo con LINE 1. Si se 
introduce RUN, se plerden todos los datos memorizados. 


Después de GO TO 20 se visuallza el menú sobre la pantalla. 
Lo mejor es ¡introducir las localidades con el número 
directivo postal, los nombres de las categorías y los 
comentarios. Si no tiene todos los nombres de las 
localidades se pueden ampliar o modlficar después. 


En la categoría 5 no se puede introducir ningún comentario," 
ya que aquí lo que se pide es un número. Pero esto se lo 
indica el programa, en caso de que Vd. Intente introducir 
otra cosa. Cuando Vd. haya arreglado estos puntos, puede 
volver al menú principal y comenzar a introducir nombres. 


Esto no debería ofrecer ninguna dificultad, ya que al 
efectuar la ¡ntroducción se ¡indican las posibilidades. 
Cuando Vd. quiera leer datos, puede leer todos o sólo una 
selección de los mismos. También en estos casos, el programa 
le conduce de tal manera que no debería haber problemas. 
Cuando se están leyendo los nombres, se visualiza 
automáticamente cada lectura en la pantalla, antes de pasar 
a la siguiente. Si Vd. quiere ver una lectura durante un 
tiempo más largo o corregirla, pulsa la tecla ENTER, y el 
transcurso es interrumpido. Adiclonalmente surge en la parte 
interior de la pantalla una línea de comando, que le ofrece 
las opciones permitidas. De esta forma puede efectuar en 
cualquier momento correciones, borrar datos, o proseguir la 
lectura, así como volver al menú principal. 
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Cuando haya finalizado su labor, el programa le pregunta si 
se han de asegurar los datos. En este punto Vd. puede 
realizar copias de seguridad. Después de esto y sin ser ya 
necesario el asegurar los datos, es cargado automáticamente 
el programa menú que hemos explicado al principlo del 
capítulo. Después puede Vd., por ejemplo, trabajar con el 
programa de administración de almacén y de volumen de 
ventas. Pero para esto, primero debe existir este programa. 
Esto es lo que vamos a realizar ahora. 
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Programa de administración de almacén y volumen de ventas 


El. programa Busyman deberá ocuparse de las siguientes 
tareas: El. stock de artículos, que pueden ser hasta 750, 
deberá ser clasificado según grupos de artículo y número en 
este grupo, memorizado y administrado con los precios de 
compra. De entrada se puede comprobar en todo momento la 
existencia de artfículos de un tipo, y naturalmente el valor 
que representa esta existencia. Además deberá ser posible un 
resumen de todos los grupos de artículos y la existencia 
total. 


Para estar siempre al corriente, es necesario introducir al 
final de cada día las ventas efectuadas. De cada artículo se 
memoriza el grupo de artículo, número de artículo y precio 
de venta. Estos datos se utilizan para restar los artículos 
vendidos de la existencia. AsfT es posible tener al día la 
exIstencia de artículos. 


Se ha de contabilizar durante todo el mes la cantidad de 
ventas de cada artículo. AsT es posible saber qué artículos 
'tvan bilen' y cuáles no. Al final del mes se efectúa un 
resumen, en el cual se memorizan el volumen de ventas y las 
ganancias. Esto se hace a través de todo el año. Estas 
clfras pueden activarse en cada momento en el programa. 


Naturalmente es aconsejable introducir el volumen de ventas 
y las ganancias, asÍT como otros datos, en el programa 
gráfico, para que sea posible una representación gráfica de 
los mismos. Después de fijar nuevamente el color en la 
primera línea, en la línea 9000 se ¡nica el menú. Este 
ofrece las opciones entre "negocio diario', resumen de 
exIstencia y volumen de ventas, introducción y cambio de 
datos referentes a la existencla, introducción de la fecha, 
y naturalmente,el fin del trabajo. 
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Aparte de la pregunta por la fecha, que se aclara por sí 
misma, se pasa a un submenú después de elegir una opción, el 
cual ¡ndica las posibilidades disponibles. De esta forma en 
el punto 'ventas diarias', se ¡indican las siguientes 
opciones: Introducción de ventas, visualizar listado de 
ventas y efectuar resumen del día. En este último punto se 
restan de las exIstencias las ventas efectuadas en este día, 
de manera que la lista de stocks esté al día. Este proceso 
se realiza a partir de la línea 1000. Todas las subrutinas 
necesarlas se encuentran entre las líneas 20 y 99. 


Desde la línea 2000 comienza la administración de las 
existencias y del volumen de ventas. Las diferentes 
posibilidades se indlcan en un submenú y son concretamente: 
resumen de existencias, resumen del mes, resumen anual, así 
como efectuar la liquidación al final del mes. 


A partir de la líÍnea 5000 se lleva a cabo la introducción de 
datos básicos, asf como la modificación de exIstencias por 
ejemplo en caso de devoluciones, cambios o envíos 
retardados. En la línea 6000, finalmente, se realiza la 


memorización de datos y el retorno al programa 'run'. 


Las variables y campos esenciales del programa son los 
siguientes: 


max Indica el número máximo de tipos de 
productos que pueden ser memorizados 


b$ímax,2) ¡ndica para cada tipo de artículo el grupo 
de producto y el número de artículo. 


w$(wg,12) Indica el nombre de los grupos de productos 
wg Cantidad de grupos de productos 


e(max) Indica el precio de compra del artículo 
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z(max) 


y5(max) 


anz 


gó(anz,2) 


ví(anz) 


o(wg) 


mwst 


j(12,6) 


r(wg,3) 


u(wg,3) 


Contiene la existencia en almacén de los 
artículos 


Memoriza las cantidades vendidas de cada 
artículo durante el més corriente 


Determina la cantidad máxIma de productos, 
que pueden ser introducidos diariamente como 
ventas. 


MemoriIza los grupos de productos y número 
de artículos de las ventas diarias. 


Indica los precios correspondlentes a las 
ventas 


Es una magnitud auxiliar, que determina en 
qué lugar de la memoria exlsten los diferen- 
tes grupos de productos. Esto ayuda a tener 
acceso más rápido a los determinados artí- 
culos. 


Manipula el impuesto sobre el valor añadido 
Indica las cifras de ventas, volúmenes de 
ventas y gananclas en el mes y año corri 
entes. 

Es una memoria intermedia para cifras de 
ventas, precios de compra y venta para la 


liquidación diarla. 


Como r(wg,3), pero para el volumen mensual. 


A parte de estas varlables indicadas se aplican una serie de 
variables, cuyo significado queda claro al leer el listado. 


Veamos aquí el 


listado del programa Busyman. 
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NoUa dy” 


3 
10 
15 
16 
17 
20 
30 
$res 
40 
50 
60 


REM ARARAREREAAAA AAA RA 
REM EXEXLAAAA REE AAA 
REM 

REM FERRE-MORET 
REM 

REM EXABREAAAARE RARA RIADA 
REM EERADARAR AAA AAA 


BORDER Os PAPER Oz INK 6: CLS : REM 2”? pcb 

LET m=?9000: GO TO m 

INPUT "Fecha = ENTER="3 (d$)3” LINE ms$ 

IF ms$<>"" THEN LET d$=m$ 

RETURN 

LET d$="9 Julio 1985": LET anz=20: 60 SUB 75: GO SUB 15 
LET es="EneFebMarAbrMayJunJul AgoSepOctNovDic": LET es=e 


LET em=1: DIM j(12,6): DIM w$(1,172) 
LET wg=1: DIM o(wg): LET o(1)=1 
DIM u(wg,3): LET max=100: LET mwst=.14: LET hu=100: LET 


xx=10000: LET mi=1+mwst 


62 
65 


67 
70 
753 
Bo 
82 
84 


60 SUB 70 

LET stkj=0: LET eks=0: LET vks=0: LET ekjs=0: LET vkjs= 
GO TO m 

DIM b$(max,2): DIM elmax)3 DIM z(max): RETURN 


DIM g$(anz,2): DIM víanz): RETURN 

PRINT AT 21,0;"*XXKRXENTRADA INCORRECTA 'XMXRAXLLA" 

FOR i=1 TO 10: BEEP .05,iz NEXT i 

PRINT AT 21,03,,:2 RETURN 

PRINT ? INK S5;“"No"+CHR$ (8); OVER 13"_*53 PRINT  INK 5; 
art. piezas vend. resto": RETURN 

PRINT >”TAB 8;"FIN DE LA LISTA": RETURN 

CLS' : PRINT AT 9,63" POR FAVOR, ESPERE ": RETURN 

LET £=0: IF m$="" THEN GO TO 108: REM wg 

FOR 1=1 TO wg: 1F VAL m$=1 THEN RETURN 

NEXT 1 

LET f=1: RETURN 

LET £$=0: 1F m$="" THEN 60 TO 118: REM numero de articu 


FOR 1=1 TO LEN ms 


IF CODE am$(1)<48 OR CODE m$(1)>57 THEN 60 TO 118 
NEXT 1 
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114 IF VAL m$>=1 AND VAL m$<=250 THEN RETURN 

118 LET f=1: RETURN 

120 LET £$=0: LET sul=0:z REM ek/vk 

121 IF m$="" THEN 60 TO 128 

123 FOR 1=1 TO LEN m$ 

124 IF sui=0 AND m$(1)="." THEN LET sui=1: GO TOD 126 

125 IF CODE m$(1)<48 OR CODE m$(1)>57 THEN GOD TO 128 

126 NEXT 1 

127 IF sui<=1 THEN RETURN 

128 LET f=1: RETURN 

130 LET +$=03 IF m$="" THEN GO TO 138: REM stk 

134 FOR 1=1 TO LEN m5 

135 IF CODE m$(1)<48 OR CODE m$(1)>57 THEN GO TO 138 

136 NEXT 1 

137 RETURN 

138 LET f=1: RETURN 

140 GO SUB 130: IF +=1 THEN 60 TO 5100 

141 IF VAL m$>750 OR VAL m$<1 THEN GO TO 5100 

143 LET max=VAL m$: GO SUB 70 

144 60 TO 5100 

145 GO SUB 130: IF +$=1 THEN 60 TO 5100 

146 IF VAL m$>150 OR VAL m$<i THEN GO TO 5100 

148 LET anz=VAL a$: GO SUB 75 

149 GO TO 5100 

150 INPUT "Borrar datos ?  (s/n)"z¿m$: 1F m$<>"s" THEN 60 T 
D 5000 

154 LET bS(i)=""— "2 LET z(i)=0: LET eti)=0: LET y$(i="  " 

156 60 SUB 99 

158 FOR k=i TO max-1 

160 LET bS$(k)=b$(k+1): LET z(k)=z(k+1):3 LET elk)=e(k+1): LE 
T yS$(k)=y5(k+1) 

162 IF b$s(k,1)=" " THEN GO TO 5000 

164 NEXT k 

166 LET b$(max)="  “z LET zímax)=0:= LET etmax)=0: LET y$tma 
xx)" ” 

167 60 SUB 350 

168 60 TO 5000 

170 GO SUB 120: IF £f=1 THEM 60 TO 5100 

172 LET mwest=VAL m$/100: LET mi=i+mwst: GO TO 5100 

180 INPUT "Primer mes anualidad comercial ?(Enero = 1) "3 L 
INE a$: GO SUB 130 

184 FOR 1=1 TO LEN as$ 
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186 
188 
190 
192 
194 
200 
201 
202 
203 
204 
250 
252 
253 
254 
260 
264 
268 
270 
272 
280 
285 
290 
291 


IF CODE a$(1)<48 OR CODE a$(1)>57 THEN 60 TO 182 
NEXT 1 

LET em=VAL as 

IF emnc1 OR em>12 THEN GO TO 182 

RETURN 

IF INKEYS<>"" THEN GO TO 200: REM correccion 
POKE 23689,PEEK 23689+1 

PRINT ,, 

POKE 23489,PEEK 23689+1 

RETURN 

LET per=0: REM ordenar 

FOR 1=1 TO max-13 IF b$(1+1)=" * THEN GO TO 260 
IF b$(1)>b$(1+1) THEN LET per=per+1 

NEXT 1 

IF per=0 THEN 60 TO 285 

FOR s=1 TO 2 STEP -1 

FOR k=1 TO s-1 

IF b$(s)<b$(k) THEN GO TO 291 

NEXT k 

NEXT s 

GO SUB 350 

GO TO 5000 

LET mé$=b$(s): LET pe=e(s): LET pz=z(s)3z LET xS$=yS(5) 


292 FOR j=s TO k+1 STEP -1 

293 LET bs(j)=b$(j-1): LET elj)=e(j-1): LET z(j)=2 (3-1): LE 
T yS(j)=y5$(j-1) 

294 NEXT j 

295 LET b$(k)=m$: LET elk)=pez LET z(k)=pz2 LET y$(k)=x8 
296.60 TO 250 

300 CLS : PRINT  INK S;” GRUPOS DE PRODUCTOS :"”: FOR i= 


1 TO 
350 
352 
305 
360 
365 
370 


wg: PRINT — INK 4515" "¿wS(i),: NEXT iz RETURN 

REM orden 

LET k=2 

FOR i=1 TO wgs LET o(i)»=1: NEXT i 

FOR i=2 TO max 

1F bs$s(i,1)=" " THEN 60 TO 390 

IF b$(1,1)>b$(i-1,1) THEN LET o(k)=iz LET k=k+CODE b$( 


i,1)-CODE b$(i-1,1) 


375 
380 
392 
394 


IF k>wg THEN 60 TO 390 

NEXT i 

FOR i=2 TO wgs 1F ot(i)<o(i-1) THEN LET o(i)=0(i-1) 
NEXT i 
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399 RETURN 
400 DEF FN r(a,b,c)=INT (100£a/b-c)/100: DEF FN kta,b,c)=IN 
T (10000%a%Xb/c)/100: DEF FN 1(a,b)=INT (10000%a/b)/100 


500 CLS 2 PRINT " Problema A 

510 LET al=i 

520 REM GA = Grupo Articulos wg es la variable 
que le corresponde 

525 PRINT ? INK 5;"Este articulo no esta en almacen"”” INK 
23" GA ART.No";¿CHRA$ (8)5 INK 25 OVER 15"_ PUP" 


530 PRINT : PRINT i3" “z¿wS(t)z" “3CODE g$(1,2);" Pts "zv(i 
), 

550 PRINT ?””"1 = Introducir de nuevo recibo”","2 = Borrar r 
ecibo",“3 = Adaitir articulo en almacen”, "4.= Menu" 

560 PAUSE O: LET ms=INKEYS: 1F m$="4" THEN 60 TO m 

570 IF a$="1" THEN GO TO 600 

572 IF m$="2" THEN GO TO 700 

574 IF a$="3" THEN 60 TO 800 

578 GO TO 540 

600 PRINT “£xX3%%%3 Nueva entrada Fix£tIk2"” 

610 INPUT "GA ="3ma$: GO SUB 100 

615 IF £$=1 THEN 60D TO 610 

620 PRINT m$;" "zz LET g$(i1,1)=CHR$ (VAL m$) 

622 INPUT ¿"Articulo No"z¿CHRS$S (8); OVER 13"_  ="¿m$: GO SUB 


624 IF f=1 THEN 60 TO 622 

628 LET g$(1,2)=CHR$ (VAL m$): PRINT m$; 

640 INPUT “PVP = ";m$: GO SUB 120 

6435 1F +$=1 THEN GO TO 440 

648 LET v(i)=VAL m$: PRINT "Pts ";v(i) 

680 PAUSE 50: GO TO 1360 

700 PRINT ”"POR FAVOR, ESPERE" 

720 FOR k=i TO anz-1: LET g$(k)=g$(k+1): LET v(k)=v(k+1): N 


740 LET g$í(anz)="" "z LET ví(anz)=0: 60 TO 1360 
800 FOR k=0(wg) TO max 

820 IF b$(k,1)=" ” THEN 60 TO 850 

830 NEXT k 

B40 60 TO 999 

850 LET b$(k)=g53(i) 

INPUT “CP (compra) = “¿m$: GO SUB 120 

IF f=1 THEN 60 TO 860 
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B66 LET etfk)=VAL m$ 

870 INPUT "Cantidad antes de venta = "¿m$3 GO SUB 130 

374 IF f=1 THEN 60 TO 870 

B76 LET z(k)= VAL m$ 

899 GD TO 1360 

900 LET x$= CHR$ wag+CHRS £n 

920 FOR 1=0íwag) TO max 

$22 1F b$(1,1)=" ”*» THEN 60 TO 935 

925 IF b$(1)=x$(1 TO 2) THEN GO TO 950 

930 NEXT 1 

935 PRINT AT 21,8;"no existe": PAUSE 150: CLS z 60 SUB 300: 

60 TO 1110 

9350 IF z(1)<1 THEN 60 TO 935 

960 50 TO 1120 

999 CLS 3 PRINT “no hay espacio”: PAUSE 200: 60 TO m 

1000 CLS : PRINT  INK 33TAB 7]“ventas diarias””” INK S¿¿d%: 

PRINT >>>" i = Introducir ventas"”?" 2 = Lista de ventas 

ES 3 = Liquidacion del dia”"””" 4 = Menu”"i PAUSE O 

1010 LET us="0" 

1030 LET m$=INKEYS 

1032 IF a2$=”"1" THEN 60 TO 1100 

1034 IF m$="2" THEN GO TO 1200 

1036 IF a$="3" THEN GO TO 1300 

1038 IF am$="4" THEN GO TO 9000 

1039 60 TO 1030 > 

1100 CELS 2 1F q$(1,1)=" ”* THEN GO TO 1104 

1102 INPUT “nuevo dia? (s/n) “3 LINE m$ 

1103 IF m$="s"” THEN DIM g$(anz,2): DIM víanz) 

1104 FOR i=1 TO anz:z if qg6$(i,1)=" " THEN 60 TO 1106 

1105 NEXT i 

1106 LET n=iz GO SUB 300 

1110 PRINT ” "ENTRADA ventas “3 INK 53d 

1112 PRINT AT vwg/2+4,03 INK 7;"R=Repite F=Fin C=Correcci 

on* 

1114 PRINT  —INK 3;* 6Gr.art. Art.No";CHRs (8); OVER 15" 
PvP" 

1116 PRINT AT wg/2+6,03 

1119 LET sui=0: LET i=0: LET ts="" 

1120 PRINT “ “¿CHRS 8; 

1122 PAUSE O: LET m$=INKEYS: BEEP .O1,1 

1124 IF CODE m$=13 THEN 650 TO 1150 

1125 IF as$="r" THEN PRINT wag;TAB 11;fn;TAB 20;vkp: 60 TO 1 
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186 
1126 
1127 
1128 
1129 
1130 
1140 
1145 
1150 
1151 
1154 
1155 
1156 
1158 
1159 
1150 
1162 
1164 
1166 
11658 
11659 
1170 
1172 
1174 
1176 
1178 
1186 
1188 
1190 
1191 
1192 
eta. 
1193 
1195 
1200 


XP 5; 


1220 
1230 
1240 


IF m$="c" THEN $50 TO 1104 

IF m$="f" THEN GO TO 1000 

IF i=2 AND m$="." THEN 60 TO 1130 

IF CODE m$>57 OR CODE m$<48 THEN GO TO 1121 
PRINT m$;7: LET ts=ts+m$ 

IF INKEYS<>"" THEN 60 TO 1140 

60 TO 1120 

1F t$="" THEN GO TO 1104 

LET i=i+iz IF i>1 THEN 60 TO 1160 

FOR k=1 TO wgs IF VAL t$=k THEN 60 TO 1158 
NEXT k 

60 SUB 80: GD TO 1104 

LET wag=VAL t$: LET t$="" 

PRINT TAB 113: GO TO 1120 

IF i>2 THEN 60 TO 1170 

LET mó=t5$ 

60 SUB 110: 1F $=1 THEN 60 SUB 80: GD TO 1104 
LET fn=VAL t$: LET ts="" 

PRINT TAB 203: 60 TO 900 

60 TO 1120 

REM precio 

LET mé=t$: 60 SUB 120 

IF £$=1 THEN 60 SUB 80: GO TO 1104 

LET vkp=WAL t$ 

PRINT ”" “i LET ts="" 

LET g$(n, 1)=CHR$ wag 

LET g$(n,2)=CHRS$ £n 

LET viín)=vkp 

LET n=n+1 

IF n>anz THEN CLS : PRINT FLASH 1;”“Lista ventas compl 
LIQUIDAR!":2 PAUSE 100: GO TO 1000 

IF INT (n/10)>=n/10 THEN GO TO 1104 

60 TO 1119 

CLS : LET sui=0: PRINT — INK 3;TAB 5; "Lista de ventas"”E 
ds - 

FOR i=1 TO anz 

IF g$(1,1)=" * THEN GO TO 1270 

PRINT i¿TAB 33wS (CODE g$(1,1));TAB 16;CODE g$(1,2);TAB 


29;"Pts" 


1250 
1260 


LET sui=sui+v(i) 
NEXT i 
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1270 PRINT ” INK 4;"Venta total = ";sul;" Pts" 

1280 PAUSE O: GO TO 1000 

1300 CLS : IF u$="s" THEN 60 TO 1310 

1305 LET al=1: LET us="0" 

1310 PRINT INK 35" Volumen de ventas diario”, INK 5;d$ 
1320 PRINT  INK 4;5”"Grupo prod. Cant. Venta Compra" 
1330 FOR i-1 TO wgz PRINT AT 1+2,03w8(1): NEXT i 

1340 LET aZ=anz 

1350 DIM r (wg, 3) 

1360 FOR izal TO a2 

1361 IF g$(i,1)=" " THEN 60 TO 1380 

1362 LET t=CODE g$(i,1) 

1365 LET r(t,1)=r (t,1)+13 LET r(t,3)=r (t,3)+v(i) 

1367 GO SUB 1500 

1368 IF l>omax THEN LET l=max 

1370 LET utt,1)=u(t,1)+1: LET ul(t,3)=u(t,3)+v(i) 

1375 NEXT i 

1380 LET p=0: LET sui=0: LET suz=0 

1385 FOR i=1 TO wg 

1386 PRINT AT 1+2,133r(i,1);TAB 16;r(i,3);TAB 24zr (1,2) 
1387 LET p=p+r(i,1): LET sui=sul+r (1,2): LET su2=su2+r (1,3) 
1388 NEXT i 


1389 PRINT  INK 23" SUMA = "¿TAB 13;p5TAB 16;su2;TAB 2435 
ul » 

1390 PRINT "Calculo :": IF sui>O0 AND su2>0 THEN LET re=FN r 
(su2,m1i,sul)a PRINT "RE=Pts "zjre*"Calc = ";¡FN k(re,ml,suZ2) 3" 


/"5FN 1 (re, sul) 

1395 PRINT "Mes corriente"””"Ventas=";vks;" Pts."; TAB 13,"Co 
mpra="jeks;" Pts.": IF eks>0 AND vks>0 THEN LET re=FN r (vks 
)miyeks):: PRINT "RE = Pts "zre;*"Calc = "5zFN k(re,ml,vks)5" 
/"3FN 1l(re,eks) 

1400 IF us$="s" THEN DIM g$(anz,2): DIM víanmz): PAUSE O: GO 
TO 1000 

1470 IF u$="0" THEN INPUT "Renovar existencias ? (s/n)";z LI 
NE u$s IF u$="s" THEN CLS : GO TO 1310 

1490 60 TO 1000 

1500 REM buscar compras 

1505 LET sui=CODE g$(i,1) 

1510 FOR 1l=0(suil) TO max 

1515 IF b$(1,1)=" ” THEN 60 TO 500 

1520 IF g$(1)<>b$(1) THEN NEXT 1 

1535 IF z(1)<=0 THEN 60 TO 1580 
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1540 LET r(t,2)=r (t,2)+e (1) 

1545 IF us$<>"s" THEN GO TO 1570 

1550 LET y$(1)=CHR$ (CODE y$(1)+1) 

1555 LET u(t,2)=u(t,2)+e (1) 

1560 LET z(1)=z(1)-1 

1565 LET eks=eks+e(1): LET vks=vks+v(i) 

1566 LET stkj=stkj+1: LET eksj=eksj+re(1): LET vksj=vksj+v(1) 
1570 RETURN 

1580 NEXT 1 

1590 60 TO 500 

1700 FOR k=1 TO max-1 

1705 IF b$(k,1)=" " THEN RETURN 

1710 IF z(k)>0 THEN GO TO 1750 

1720 FOR l=k TO max-1 

1730 LET y$(1)=y$5(1+1): LET b$(1)=b$(1+1): LET e(l)=e(1+1): 
LET z(1)>=z (1+1) 

1740 NEXT i 

1745 LET b$(max)="  "z LET k=k-1 

1750 NEXT k 

1760 RETURN 

2000 CLS 3 PRINT — INK 3; "VOLUMEN DE VENTAS Y EXISTENCIAS *; 


INK S55d$?” 
2010 PRINT " 1 = Resumen de existencias”””" 2 = Resumen me 
nsual"*?”" 3 = Detalle del mes"””?" 4 = Resumen anual*"*>" 5 


= Liquidacion/comienzo mes"”””" 6 = Menu" 
2020 PAUSE Oz LET m$=INKEYS: IF ms$="6" THEN GO TO m 
2026 IF ms$="1" THEN GO TO 5800 
2028 IF m$="5" THEN GO TO 2900 
2032 IF ms$="2" THEN GO TO 2100 
2034 IF m$="3" THEN GO TO 2400 
2036 IF m$="4" THEN 60 TO 2600 
2040 GO SUB 80: GOD TO 2000 
2100 CLS : PRINT — INK 3;"” VOLUMEN DE VENTAS MENSUAL "* INK 6 
jas 
2110 PRINT — INK 5S3"Gr.articulo Pzas Ven Com ": LET p= 
O: LET sul=0: LET su2=0 
2150 FOR i=1 TO wg 
2160 PRINT w$(1i),;u(i,1);TAB 19;u(i,3)3TAB 26;u(i,2) 
2180 IF u(iz,2)<=0 OR u(i,3)<=0 THEN GO TO 2195 
2190 LET re=FN rí(u(i,3),m1,u(i,2)): PRINT "RE=Pts "zre” "Calc 
: "3FN k(rezmlyu(i,3))3"/“;FN l(rezutiz,2))”” 
2200 NEXT i 
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2220 PRINT ”* INK 33"SUMA = "¿TAB 163p3TAB 179;su2;TAB 26; 

sul 

2230 PRINT ?* INK 33"Mes corriente :"”” INK 43"V = Pts “¡¿vks 
¿TAB 16;"C = Pts “jeks: IF eks>0 AND vks>0 THEN LET re=FN r 
(vks,mli,eks): PRINT "“RE=Pts “¿re”*"Calc:"¿FN kírezmi,vks)p"/" 
¿EN 1 (re, vks) 

2240 GO SUB 95 

2300 PAUSE 0: GO TO 2000 

2400 CLS : PRINT ¿"Detalle volumen mensual ventas”” INK 53d5 
2435 LET 1=1 

2440 FOR i=1 TO max 

2450 1F b$(i,1)=" " THEN 60 TO 2480 

2454 IF i=o(1) AND i>1 THEN INPUT  INK 4;"ENTER = seguir *"; 
LINE m$: CLS 

2455 IF i=o(1) THEN PRINT ”?3 INK 43153" "zw$(1);: GO SUB 90 
2 1F l<wg THEN LET 1=1+1: GO TO 2455 

2460 PRINT CODE b$(1,2);¿TAB ó6je(i);TAB 153CODE y$(1)-32; TAB 

27;z(i) 

2470 NEXT i 

2480 GO SUR 95 

2490 PAUSE O: 60 TO 2000 

2600 CLS 3 PRINT TAB 8;"Vision anual"” INK Sjd$”” 

2610 FOR i=1 TO 12 

2615 IF j(i,2)=0 OR j(i,3)=0 THEN 60 TO 2650 

2620 PRINT ”” INK 2;"MES Pzs Ventas Compras" 

2623 PRINT  INVERSE 1;e%$ (3% (em-1+i1)-2 TO 3k(em-1+1)); INVERS 

E O;TOB 83j1i,1);TAB 145 5(1,3);3TAB 2453j(i,2) 

2630 LET re=FN r(3(i1,3),m1,j(1,2)) 

2635 PRINT ¿“RE = "zre¿TAB 15;"Calc "¡FN k(rezml, j(i,3))3"/" 
¿FN 1(re,3(1,2)) 

2640 PRINT ”*"Escalon";TAB 8353(1,4);TAB 1433(i,6);TAB 2453(i, 
5) 

2645 LET re=FN r(j(i,6),m1,j(1,59)): PRINT "RE = "zre;TAB 15; 
"Calc "zFN k(re,mi,j(i,6))53"/"3FN l(re,J(1,5)) 

2650 NEXT i 

26553 PRINT ** INK 2;"Anyo corriente:”3 INK 4? "V=Pts. "zvks3;T 
AB 16;"C=Pts.";zeksj 

2660 1F eksj>0 AND vks3>0 THEN LET re=FN r(ívksj)miyeksj): P 

RINT "RE=Pts"z3re:z PRINT “Calc = *¿FN k(re,ml,vksj)5"/"3FM 1(1 
re,eks)3) 

2663 GO SUB 95 

2670 PAUSE pz 60 TO 2000 

2900 CLS : INPUT "Introducir todos los datos?(s/n)"; LINE m$ 

3 IF m$<>"s" THEN 60 TO m 

2920 PRINT "Por +avor, espere” 

2921 FOR k=1 TO 12 
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2922 IF j(k,1)=0 THEN 60 TO 2925 

2923 NEXT k 

2925 LET j(k,1)=p: LET j(k,2)=eks: LET j(k,3)=vks 

2926 LET j(k,4)=s5tkj: LET j(k,5)=eksj: LET j(k,6)=vksj 

2930 DIM u(wg,3): DIM y$ (max) 

2955 LET eks=0: LET vksj=0: DIM g$(anz,2): DIM víanz) 

2960 60 SUB 1700 

29635 60 SUB 350 

2970 INPUT "Fin anyo comercial? (s/n)"j LINE as 

2975 1F as<>"s"” THEN 60 TO 2000 

2976 INPUT "Introduzca fin, por favor"; LINE m$ 

2977 LET as="0" 

2978 1F as="fin" THEN LET a$="s" 

2979 CLS : PRINT AT 10,13; FLASH 1;"Fin": PAUSE 150 

2980 IF a$="s" THEN LET eksj=0:% LET vksj=0: LET stkj=0 
2985 IF a$="s" THEN DIM j(12,6) 

2999 6D TO 2000 

5000 CLS : PRINT — INK 33" Entrada/modificacion datos ": P 
RINT ?” INK 4;"1 = Modificar existencias”"””"2 = Introducir e 
xistencias””””"3 = Componer Grupos Productos”"””"4 = Ordenar e 
xistencias"”*"5 = ME NU" 

5020 PAUSE O: LET m$=INKEYS: IF m$="5" THEN GO TO m 

5050 IF m$="4" THEN CLS : PRINT FLASH 1;"Por favor, espere 
“zz 60 TO 250 

5054 1F m$="1"” THEN 60 TO 5600 

5054 1F m$="3" THEN GO TO 5100 

5058 IF m$="2" THEN GD TO 5300 

5060 GO SUB 80: 60 TO 5000 

5100 CLS : PRINT "Introducir 6P" 

5124 PRINT *"1 = Numero grupos de productos” 

3126 PRINT >"2 = Nombres grupos de productos" 

5127 PRINT *"3 = Comienzo anyo comercial=";es$(31em-2 TO 3kem 
) 

5128 PRINT >"4 
de prod. "¿max 
5129 PRINT ?"6 = Max. ventas diarias = "janz?**"7 = ME NU" 
5130 PAUSE O: LET mé=INKEYS: IF m$="7" THEN 60 TO 5000 
5150 IF m$="4" THEN INPUT "Cual es el IVA ?(en Z) "¿m$: GO 
TO 170 

5154 IF m$="5" THEN INPUT "Cantidad de tipos de productos 
(1-750)"5m$: 60 TO 140 

5156 IF m$="6" THEN INPUT “Cantidad de ventas por dia 
(1-150)"zm$: 60 TO 145 

5160 IF m$="3" THEN GO SUB 180: 60 TO 5100 

5180 IF m$="2" THEN GO TO 5220 

5190 IF m$="1" THEN GOD TO 5200 

5195 GO TO 5130 

5200 INPUT "Cantidad de GP (1-20)= "¿m$ 

5210 GO SUB 130: IF f=1 THEN GO TO 5200 

5212 LET wg=VAL m$: IF wg<i OR wg>20 THEN 60 TO 5200 

5213 DIM o(wg): DIM w$(wg, 12): DIM utwg, 3) 

5214 FOR i=1 TD wg:z LET o(i)=1:z NEXT á 

5215 PRINT AT 3,283" "¿AT 3,28;wg 

5216 60 TO 5100 

5220 IF wg<=0 THEN PRINT ?*"Cantidad de 6P = 0": PAUSE 150: 
60 TO 5100 

5222 CLS : PRINT 

5224 FOR i=1 TO wg 


IVA = “;100%mwst;"X"”"”*"5 = Numero de tipos 
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5226 
$: 


PRINT : PRINT "GP "3iz3" = "¿TAB 8;w$(1)53:2 INPUT LINE m 


IF ms$<>"" THEN LET w$%(i)=m$ 


5227 POKE 23689,PEEK 23689+1: PRINT PAPER 1;i;TAB 8;w$(1) 
5228 NEXT i 

5290 PAUSE Oz 60 TO 5000 

5300 CLS 

5303 FOR s=0(wg) TO max 

5304 IF b$(s,1)<>" " THEN GO TO 5306 

5305 60 TO 5310 

5306 NEXT s 

5308 60 TO 999 

5310 60 SUB 300: PRINT : PRINT  INK 3;"INTRODUCIR £ X 1 S T 
ENCIAS” 

5330 INPUT "Numero del GP (O=+tin) = "; LINE ms 

5332 IF m$="0" THEN GO TO 250 

5333 60 SUB 100 

5334 IF f=1 THEN 60 SUB 80: GO TO 5310 

5336 LET i=VAL ms 

5400 CLS : PRINT "Entrada "; INK 4;3w$(i) 

5402 PRINT "Art.—No";CHR$ (8); OVER 1;"_";3" precio compra 
cantidad" 

5405 INPUT "Articulo-No";CHR$ (8); OVER 15"_";" (O=tin)= “; 
LINE m$: IF m$="0" THEN (GO TO 5300 

5406 0 SUB 110 

5407 IF +=1 THEN 60 SUB BO: 60 TO 5405 

5410 LET £n=VAL m$: PRINT £n; 

5415 LET ms=CHR$ 1+CHR$ +£n 

5420 FOR 1l=0(i) TO max: IF b*$(1,1)=" *" THEN 60 TO 5430 
5421 1F b$(1)=m$ THEN 60 TO 5425 

5422 NEXT i 

5424 G0 TO 5430 

5425 PRINT " existe "¿TAB 14;e(1): PAUSE 250: GO TO 5400 
5430 INPUT "Precio compra = "z LINE m$: GO SUB 120 

5432 IF +=1 THEN GO SUB 80: GO TO 5430 

5436 LET ek=VAL m$: PRINT TAB 14;ek; 

5440 INPUT "Cantidad = "; LINE m$: GO SUB 120 

5443 IF f=1 THEN GO TO 3440 

5446 LET az=VAL m%*: PRINT TAB 26; az 

5460 INPUT "Entrada ok? (s/n)"; LINE ms$ 

5465 IF m$="s" THEN 60 TO 5500 

5470 GU SUB 201 

5480 60 TO 5405 

5500 LET b$(s,1)=CHR$ i 

5502 LET b$(s,2)=CHR$ £n 

5508 LET els)=ek 

5510 LET z (s)=az 

5520 LET s=s+1 

5530 IF s>max THEN PRINT "No hay espacio para mas entradas" 
¿m150: GO TO m 

5550 60 TO 5405 

5600 60 SUB 300 

5610 PRINT AT 14,0;”1 = Completar entrega"”"2 = Devolucion"?” 
"3 = Cambio"”"4 = Correccion de una entrada"”*"5 = ME NU" 
5615 PAUSE O: LET m$=INKEYS: IF m$="5* THEN GO TO 5000 
5616 IF m$>"4" OR m$<="0" THEN GC SUB 80: GO TO 5615 
5617 LET at=m% 

5620 1F m$="1" THEN PRINT AT 14,4;"Completar entrega" 
5621 IF m$="2" THEN PRINT AT 15,4; “Devolucion" 


5622 


1F m$="3" THEN PRINT AT 16,4; "Cambio" 
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5623 IF m$="4" THEN PRINT AT 17,4; "Correccion de una entrad 

a” 

5650 INPUT "GP = "; LINE m$: GO SUB 100 

5651 IF £=1 THEN GO SUB 80: GO TO 54650 

5652 LET w=VAL. m$ 

5658 PRINT AT 19,035 INK ¿vw (w)5 INK 6TAB 175" “3 

5660 INPUT "Articulo No";¿CHRS$S (8); OVER 1;"_ = "; LINE m$: G 

O SUB 110 

5662 IF +=1 THEN 60 SUB 80: GO TO 5660 

5668 LET fn=VAL m$: PRINT £n 

5690 FOR i=0(w) TO max 

5695 6D SUB 130: IF +=1 THEN GO SUB 80: GO TO 5794 

5700 IF CODE b$(1,1)<>w THEN GO TO 5720 

5702 IF CODE b$(1,2)<>fn THEN 60 TO 5720 

5710 GO TO 5730 

5720 NEXT i 

5725 PRINT “No lo he hallado": PAUSE 150: 60 TO 5000 

5730 PRINT AT 20,05 INK 3;"C:"ze(i);" Pts";TAB 17;"existenci 

as:"3z(i) 

5750 IF a$="1" THEN INPUT "cantidad = ";sul: LET z(1)=z(i)+ 

sul 

5755 IF a$="2" THEN INPUT "cantidad = "z;sul: LET z(i1)=z (1)- 

sul 

5758 IF a$="3" THEN LET z(i)>=z(i)+1 

57379 IF a$="4" THEN GO TO 5778 

5760 PRINT TAB 11; INK 2;"Nuevas existencias:";3z(1) 

5770 INPUT "M = MENU XxX ENTER = seguir"; LINE ms 

5775 1F ms$="m" THEN 60 TO 5000 

5776 GO TO 5600 

5778 PRINT AT 21,0,,: INPUT "(ENTER=0OK B=borrar) LP="; LIME 

m$: IF m$="" THEN GO TO 5783 

5779 1F m$="b" THEN 60 TO 150 

5781 60 SUB 100: 1F £f=1 THEN GO SUB 80: 60 TO 5780 

5782 LET b$(1,1)=CHR$ (VAL ms$) 

5783 PRINT AT 19,0; PAPER 33w$ (CODE b$(i,1)): INPUT "Nuevo a 

rt. No";CHR$ (8); OVER 1;"_ = (ENTER = OK) "; LINE m$: IF m$ 

="" THEN GO TO 5786 

5784 60 SUB 110: IF +$=1 THEN 60 SUB 80: 60 TO 5783 

5785 LET m$(i,2)=CHRS$ (VAL m$) 

5786 PRINT AT 19,18;" "¡AT 19,18; PAPER 3;CODE b$11,2 

5790 INPUT "Compra (ENTER=0K) "5; LINE m$: IF m$="" THEN GO 
TO 5797 

5792 6D SUB 120: IF +=1 THEN 60 SUB 80: GO TO 5790 

5793 LET eli)=VAL ms 

5794 PRINT AT 20,33" "¿AT 20,3; PAPER 33e(i);" Pts" 

: INPUT "Nuevo num. piezas = (ENTER=0OK"; LINE m$%: IF ms$="" T 
HEN 60 TO 5794 

5796 LET z(i)>=VAL ms 

5797 PRINT AT 20,253 PAPER 332 (1) 

5799 GO TO 250 

5800 CLS : PRINT  INK 3;" Vision existencias e 
INK 4;TAB 7;"1 = Vision"”>*TAB 7;"2 = Detalle GP">>TAkR 733 = 
MENU” 

5810 PAUSE 0: LET mS$=INKEYS: 1F m$="3" THEN 50 TO 5810 

5811 IF m$<>"1" AND m$<>"2" THEN 60 TO 5810 

5812 IF m$="1" THEN CLS : 60 TO 5818 

5814 GO SUB 300: INPUT "GP (0= todos) = "¿su3z IF su3>wg THE 

N 60 SUB 80: GO TO 5814 
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5815 LET w=su3 
5816 60 TO 5900 
5818 DIM ríwg,2): PRINT— INK 3¿TAB 7; "VISION-EXISTENCIAS"? 1 


NK 2??? "Existencias Valor" 
5820 FOR 1=1 TO max 
5822 IF b$1i,1)=" " THEN GO TO 5840 


5824 LET k=CODE b$(1,1) 

5826 LET r(k,1)=r (k,1)+z(1): LET r (k,2)=r (k,2)1+z(1)Xe1(1) 

5830 NEXT i 

5840 LET sui=0: LET su2=0 

5850 FOR i=1 TO wgs= PRINT wS(i);TAB 15;r(i,1);TAB 215r (1,2): 
LET sul=sul+r (1,1): LET su2=su2+r(i1,2): NEXT 4 

5860 PRINT ”* INK 3" SUMA ="3TAB 153sul¿TAB 21;su2 

5870 PAUSE 0: 60 TO 2000 

5900 IF w=0 THEN FOR w=1 TO wg 

5902 CLS : PRINT — INK 45d$3 INK 3” "Existencias "¿w$(w)” INK 


5; "Art.No";CHR$ (8); OVER 13"_ precio com. cantidad" 
5905 LET sui=0: LET su2=0 
5910 IF b$(1,1)=" " THEN GO TO 5932 


5920 IF CODE b$(in1)=w THEN PRINT CODE b$(i1,2);TAB 15;e(1) 
¿TAB 2637 (1): LET sul=sul+e(i)Xz(1): LET su2=su2+z (i) 

5930 NEXT i 

5932 PRINT * 1NK 33" SUMA Pts "¿sul¿TAB 263 5uZ2 

5960 INPUT  INK 2;"ENTER=seguir"; LINE m$: IF su3=0 THEN NE 
XT w 

5970 GO TO 2000 

6000 CLS : PRINT AT 9,0; "ALMACENAR PROGRAMA/DATOS 2 (s/n)”: 
PAUSE O 

6040 IF INKEYS="n" THEN REM LOAD k"m";13"run" 

6050 CLS : PRINT "ALMACENAR DATOS :";¿AT 5,05"1 = Microdrive" 
002 = Casette"””"3 = ME NU": PAUSE 0: LET mSs=1NKEYS 

6060 IF m$="1" THEN GO TO 6200 

6070 1F m$="2" THEN ULS : 60 TO 4100 

6080 IF m$="3" THEN 60 TO 9000 


6100 PRINT AT 9,03” Coloque la cinta BUSYMAN, prepare e 
l casette para GRABAR Y pulse ENTER" 

6110 SAVE "BUSYMAN" LINE 1 

6120 PRINT " kebobine la cinta para su VERIFICACION 


y pulse PLAY": VERIFY "* 
6190 60 TO 6050 
6200 PRINT ?**"Por favor, espere" 
6220 REM ERASE "m";1;"Busyman" 
6230 REM SAVE Xx"m";1;"Busyman" LINE 1 
6240 REM VERIFY x"m";1;"Busyman" 
6290 GO TO 6050 
9000 ELS : PRINT — INK 33" Menu de administracion almacen XxX 
X* y volumen de ventas XXXX"5AT 2,0; INK 1450d$;TAB 273"? pcb 


9030 PRINT *?*>" 1 = Negocio diario""*?" 2 = Vision exi 
st. y vol.ven."???" 3 = Entrada/variacion datos"*>>" 4 
= Fecha"”**" 5 = FEF 1N" 


ON PAUSE 0: LET m$=INKEY$: 1F m$="4" THEN GO SUB 15: 60 T 
m 

9116 IF m$="1" THEN GO TO 1000 

9117 1F m$="2" THEN 60 TO 2000 

9118 1F m$="3" THEN (60 TO 5000 

9119 IF m$="S5" THEN GO TO 4000 

9120 60 SUB 80: 60 TO 9040 
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Aplicación de Busyman 


Para reservar los espacios de memoria para todas las 
variables, hay que introducir GO TO 20 después” de asegurar 
el programa, lo cual se efectúa nuevamente con la opción 
LINE 1. A continuación se sigue con la opción 3 al submenú 
para entrada/modificación de datos. Aquí nuevamente se elige 
la opción 3: Composición de los grupos de productos. 


Ahora se ¡introduce la cantidad de grupos de productos 
diferentes. Se debería Introduc!r un grupo de más antes que 
un grupo de menos, ya que esta cantidad no puede ser 
modificada posteriormente sin perder datos. Luego puede 
asignarse un nombre a cada grupo, el cual puede tener como 
máximo 12 caracteres. Estos nombres pueden ser modificados 
poster lormente en todo momento. 


La cantidad de tipos de productos también ha de fijarse. El 
Spectrum 48K permite administrar hasta 750 artículos con 
este programa. Si fueran necesarios menos artÍculos, es 
aconsejable introducir un número más pequeño, ya que algunas 
operaclones en el programa serfan más rápidas. La cantidad 
de ventas por día, que pueden ser elaboradas en una 
ITquidación, ha de ser introducida igualmente. No debería 
sobrepasar la cifra de 150. Esto sólo es aplicable a esta 
versión del programa. Naturalmente, Vd. puede eleglr una 
clfra mayor sI la capacidad de memoria lo permite, o sea si 
Vd. tiene que administrar menos de 750 artículos. Sólo tiene 
que ¡introducir en la línea 146 la cifra correspondlente en 
lugar de 150. Como no todos los negoclantes comienzan el año 
en enero, también es posible fljar este mes de inicio. En el 
resumen anual se asigna el nombre de mes correcto a cada mes 
liquidado. También es posible modificar el factor 
correspondiente al IVA. 
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Después de efectuar estos trabajos, se puede volver al menú 
principal. Ahora debería introducirse la fecha a través de 
la opción 4. Y luego puede Vd. introducir las existencias. 


Para ello se elige la opción 3 del menú principal. En el 
submenú que entonces surge, se activa bajo la opción 3 una 
subrutina (introducir existencia). Primero se exige el 
número del grupo de artículos que ha ser tratado, y después 
el número de artículo, precio de compra y cantidad. Cada 
entrada ha de ser confirmada. Naturalmente, todas las 
entradas pueden ser corregidas con la opción 'modiflcación 
datos'. 


Cuando se han ¡ntroducido las existenclas de todos los 
grupos de productos, se puede efectuar una visión de todo el 
almacén. Estc se consigue a través de la segunda opción en 
el menú principal, que ¡leva al submenú 'Volumen de ventas y 
existencias'. El resumen de existencias puede ser realizado 
por una parte detalladamente para cada grupo de productos, y 
por otra, para la totalidad de grupos de productos. El 
resumen mensual ¡ndica las ventas para cada artículo en el 
mes corriente, asT como el resto de existencia (opción 3), o 
un resumen de tcdos los grupos de productos (opción 2). 


A final de cada mes hay que realizar la liquidación del 
mismo. Así se memorizan el volumen y la ganancias totales ( 
estas cifras pueden ser activadas para el resumen anual), y 
las cifras de venta del mes corrlente se ponen a 0. 


El trabajo dlario también es fácil de realizar. Desde el 
menú pricipal se elige la opción 1 y se llega nuevamente a 
un “submenú. La opción 1 nos lleva hacia la rutina que 
manipula la entrada de ventas. Se han de introducir el grupo 
de productos, número de artículo y preclo de venta. 
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Pulsando 'C' se puede efectuar una corrección de la entrada. 
Con 'R' se repite la última entrada, o sea en la venta de 10 
artículos ¡dénticos no hay que Introducir 10 veces la misma 
información, sino únicamente una vez y las restantes nueve 
veces se pulsa 'R'. 


Con 'F! se finaliza la introducción. Tampoco es necesar lo 
introducir todas las ventas a la vez. Si ya se ha efectuado 
una entrada y se elige nuevamente la opclón del menu, pueden 
dejarse los datos en la lista. El contenido de esta lista 
puede ser visualizado a través de la opclón 2 del submenú 
'negoclo  diario'. La lista se borra al efectuar la 
liquidación diaria y restar de la existencla los artfculos 
vendidos. 


Esta liquidación (opción 3) se realiza primero sin modificar 
las existencias en almacén. Esto sólo se realiza cuando se 
desea. AsT es poslble efectuar una liquidación intermedla, 
para hacerse una Idea. 


Con seguridad que todos los programas no están ajustados 
óptimamente a las necesidades de empresas pequeñas. Pero se 
pueden modificar y ampliar fácilmente. De todas formas 
representan una estructura, sobre la cual se puede seguir 
construyendo. 


Sin duda alguna, el Spectrum puede conllevar 
simplificaciones de las tareas en una empresa pequeña, y no 
hay nada que objetar en contra de utilizarlo para estos 
deberes. 
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APENDICE 1: EL JUEGO DE COMANDOS DEL SPECTRUM 


Todos los comandos, a excepción de INPUT, DEF y DATA, 
pueden ser ¡ntroducidos tanto en un programa como en un 
comando directo. Varios comandos pueden ser Introducidos en 
una l|fnea de programa, siempre que estén separados por un 
doble punto (:). Téngase en cuenta, que después de surgir el 
primer REM, se ¡gnora el resto de la línea. En un comando 
IF, todos los demás comandos sólo se efectúan si están 
escritos después de THEN. 


Veamos ahora una lista completa de los comandos del 
Spectrum: 
BEEP x, y Durante x segundos suena, a través de un 


altavoz incorporado,una nota cuya altura 
y semitonos están por encima del DO 
central. Sl y es negativa, la altura del 
sonido estará por debajo del DO. La 
señal también está en la salida EAR y 
puede ser amplificada. 


BORDER m Los márgenes laterales de la pantalla , 
así como el color de fondo de la parte 
inferior de la pantalla reciben el color 
m+ m debe estar entre O y 7. 


BRIGHT n El brillo se determina para los próximos 
caracteres. n puede ser únicamente 0 
(para normal),1l(para brillante) y Blpara 


transparente). 


CAT Válido sólo para funcionamiento con 
Microdrive ( ver abajo) 


CIRCLE x,y,Z Dibuja un círculo con centro en (x,y ) 
y de radio z 
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CLEAR 


CLEAR n 


CLOSE X 


CLS 


CONT (¡nue) 


coPY 


DATA aDCoóss 


DEF FN f(a,b,+...)=e 


DELETE f 


DIM a(m,n,++,S) 


Borra todas las variables y deja libre 
el espacio de memoria que ocupaban. 
Además se efectúa un RESTORE y CLS, 

la posición PLOT se sitúa en la esquina 
Izquierda inferior,y la pila de subru— 
tinas de GO SUB es borrada. 


Como CLEAR pero, además, si es posible 
la varlable del sistema RAMTOP es colo- 
cada a n. y pone allfÍ la nueva pila de 
GOSUB. 


Válido sólo para funcionamiento con 
Microdrive ( ver abajo) 


Borra el flchero de presentación visual 
y, con ello, la pantalla misma. 


Continúa el programa en el mismo punto 
en el cual fue interrumpido con un ¡n- 
forme diferente a 0. 


Escribe en la impresora, si esta está 
conectada, las 22 líneas superiores de 
la pantalla. 


Lista de datos en un programa, que 
pueden ser leídos con READ 


Define una función, que puede ser ac- 
tivada en el programa con FN 


Válido sólo para funcionamiento con 
Microdrive (ver abajo) 


Borra un campo a, si este existe, y re- 
serva espacio de memoria para un campo 
numérico a con s-m dimensiones. Todos 
los valores iniciales se colocan a 0. 


DIM a$(m,n,+.+.,5) 


DRAW x,y 


DRAN x,y,Z 


ERASE 


FLASH n 


FOR a=x TO y 


FOR a=x TO y STEP z 


Como DIM a(m,n,+.+.,Ss), pero para un campo 
de Strings. Todos los valores han sido 
colocados a " "(CHR$(32))al principlo. 


Dibuja una recta desde la posición PLOT 
actual a,b hasta la posición a+tx, b+y 


Dibuja un sector de cÍrculo, que une la 
posIción PLOT actual a,b con el punto 
a+x, b+y. Para ello se toma un ángulo 
inicial de z radianes 


Válido sólo para funcionamiento con 
MIcrodrive (ver abajo) 


Inicla un parpadeo de los caracteres si 
n=1, lo cesa si n=0. Para n=8 sigue el 
estado anterlor. 


Borra el valor de la variable a y colo- 
ca a como variable de control para un 
bucle. a toma primeramente el valor INT 
x y transcurre el bucle, cuyo final debe 
estar marcado por NEXT a.Después se au- 
menta en 1 el valor de a, y el bucle es 
recorrido de nuevo.Este proceso se repl- 
te hasta que a>y. 


Como FOR a=x TO y, pero aquí la varla- 
ble de control se aumenta en a+tz des- 
pués de recorrer cada vez el bucle. z 
puede ser negativa ( sl x>y es válido). 


FORMAT f 


GOSUB n 


G0 TO n 


IF x THEN y 


INK-—n 


INPUT. +. 


INVERSE n 


LIST 


Válido sólo para funcionamiento con 
Microdrive (ver abajo) 


Origina un salto hacla un subprograma, 
el cual comlenza en la línea n.tl sub= 
programa debe finallzar con RETUnN. 


Origlna un salto hacia una línea con el 
número n. Si esta línea no existe, se 
salta hacia el número de línea supe- 
rior más próximo. 


Sl x, que puede ser una expresión, es 
clerto, o sea , que no es 0, el comando 
y es efectuado. 


Define el color con el que se han de es—- 
cribir los caracteres. Para n entre O y 
7 se define el color correspondlente., 
n=8 significa transparentw,n=9 signifi- 
ca contraste. 


El programa se interrumpe y espera una 
entrada, que hay que erminar con ENTER. 


Intercambia el color de fondo con el de 
primer plano si n=1.Con n=0 se consigue 
el modo normal. No se permiten otros 
valores para ne. 


Asigna a la variable v el valor e, o el 
valor de la expresión e. 


Visualiza el listado del programa sobre 
la pantalla. 
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LIST 


LLIST 


LLIST n 


LOAD 


LOAD 


LOAD 


LOAD 


LOAD 


LOAD 


LOAD 


n 


f 


í 


f 


í 


f 


f 


LPRINT 


MERGE f 


DATA () 


DATA $() 


CODE m,n 


CODE m 


CODE 


SCREENS 


Visualiza sobre la pantalla el listado 
del programa desde la línea de progra- 
ma cuyo número sea como mínimo n. 


Imprime el listado del programa en la 
impresora 


Imprime, a través de la 'mpresora, el 
listado del programa desde la línea de 
programa cuyo número sea como mínimo 
Ne 


Carga un programa con todas las 
variables 


Carga un campo numérico 


Carga un campo de cadenas. 
(Al fanumér ico). 


Carga n Bytes en la dirección de 
memoria m hasta m+n-1 


Carga Bytes comenzando en la dirección 
de memoria m 


Carga Bytes en las direcciones de me-- 
ria de las que fueron salvadas(SAVE) 


Idéntico a LOAD f CODE 16384,6912. 
Carga 6912 Bytes en la memoria de pan- 
talla. 


Impresión de la magnitud o de la ex- 
presión e sobre la impresora. 


Como LOAD f, pero aquí no se borran 

las líneas de programa existentes en el 
Spectrum, de no ser que sean ¡idénticas 
a las cargadas. 


194 


MOVE a,b 


NEW 


NEXT x 


OPEN £ 


OUT m,n 


OVER n 


PAPER n 


PAUSE n 


PLOT m,n 


Válido sólo para funcionamiento con 
Microdrive (ver abajo) 


Borra el programa BASIC con todas las 

varlables. No influye en los UDG, o el 
espaclo de memorla asegurado con di- 
recciones >n, después de CLEAR n. 


Final de un bucle iniciado con FOR 


Válido sólo para funcionamiento con 
Microdrive (ver abajo) 


Da salida al "PORT" a nlve! de proce- 
sador. 


Para n=1 se escribe un carácter sobre 
la pantalla, sin que sea borrado el 
carácter anterior. Con n=0 se consigue 
el estado anterior, esto es, se efec- 
túa el borrado. 


Como INK, pero aquí se define el color 
de fondo. 


interrumpe el >2rograma y visualiza el 
contenido de la memoria de pantalla 
durante n segundos, donde n= 1/50. 

Sl una tecla es pulsada, la PAUSE es 
interrumpida. Si n=0, la pausa dura 
hasta que se pulse una tecla. 


Sitúa un punto gráfico en las coorde- 


nadas m,n+. En ello vale O<=m<=255 y 
O<=n<=175. 
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POKE m,n Escribe el valor n en la posición de 
memoria Me 


PRINT e Visualiza el valor o la expresión e 
sobre la pantalla, en la próxima po- 
sición PRINT. 


PRINT AT x,y;e Visualiza e en la lfnea x y en la co- 
lumna y. En ello vale 0<= x<=21 y 0O<=y 
<= 3l. 

PRINT TAB x;e Visualiza e en la columna x de la 


próxima línea disponlble 


RAND(omize) n Coloca el valor inicial para el gene- 
rador aleatorio en n, si n<> 0. Si 
n=0, o n no s2 escribe, se ellge para 
n la cantidad de cuadros visualizados 
hasta este momento en la pantalla. 


READ a,b,C... Lee los valores de un comando DATA y 
asigna estos a las variables a,b etc. 


REM Abreviación de Remark ( comentario). 
Todos los caracteres en una línea de 
programa se ignoran a partir de REM, 


RESTORE n Sitúa el indicador para un comando READ 
sobre la línea n. Si n no se escrIbe, 
significa RESTORE O. 


RETURN Es el comando al final de un subprogra- 
ma» Después de este comando,el progra- 
ma salta a la línea inmediata después 
del correspondlente GO SUB. 
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RUN n 


SAVE 


SAVE 


SAVE 


SAVE 


SAVE 


SAVE 


sTOP 


f LINE n 


f DATA () 


f DATA $() 


f CODE m,n 


f SCREEN$ 


VERIFY 


Borra todas las variables e Inicia el 
programa en la línea n. Si n no se es 
cribe, el programa se incia en la pri- 
mera línea. 


Graba el programa con todas las varia- 
bles 


Graba el programa con todas las varia- 
bles. Sl es cargado un programa graba- 
do de esta forma, se efectúa un salto 
automático hacia la línea n. 


Graba un campo numér [co 

Graba un campo de cadena alfanumérico. 
Graba m Bytes de la dirección m 

Graba la memoria de pantalla. Este co- 
mando es Iindéntico con SAVE f CODE 
16384,6912 

interrumpe el programa con el informe 9. 
Si después se introduce CONT, el pro- 
grama continúa con el comando slguiente 
al STOP. 

Como LOAD, pero aquíT los datos no se 


cargan en la memoria, sino que son com- 
parados con el contenido de la misma. 
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Además de 


los comandos, el Spectrum entiende una serie de 


funciones, que están listadas a continuación: 


ABs x 


ACS x 


AND 


ASN x 


ATN x 


ATTR (x,y) 


BIN 


CHR$ 


CODE x$ 


COS x 


EXP x 


Valor absoluto de x 


Arco coseno de x en radlanes. Tiene que valer 
[<= x <= 1 


Untón lógica. x AND y es cierta, sl x = yo 


Arco seno de x en radianes. Tiene que valer 
=] <= x <= 1 


Arco tangente de x en radilanez. 


Número que indica en forma binaria los atribu- 
tos de la posición de la pantalla con el nú- 
mero de línea x y de columna y. Bit 7, el más 
significativo, es 1 para Flash 1 y O para Flash 
0. BIt 6 es para Bright, o para normal, Bit 5 
hasta 3 indican el color de fondo y BIt 2 hasta 
O el color de primer plano. 


Sl se quiere representar un número en forma bI- 
naria, se puede efectuar introduciendo BIN se— 
guido de ceros y unos. 

Resulta el carácter cuyo código es INT x 

Indica el código del primer carácter de la 
cadena x%$. Si se trata de una cadena vacía, el 
resultado es O 

Coseno x 

Función exponencial de x, o sea e elevada a x, 


donde e es la base de los logaritmos naturales o 
neperianos. e=2,718282 
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FN ex) 


INKEYS 


INT x 


LEN x$ 


LN x 


NOT x 


OR 


PEEK x 


Pl 


POINT (x,y) 


Con esto se activa una función definida por DEF 
FN. El argumento x siempre ha de estar entre pa- 
réntesis. Si no existe ningún argumento, hay 

que escribir los paréntesis de todas formas. 


Indica el valor de la lectura de datos a nivel 
de procesador desde el "PORT" x. 


Comprueba si ha sldo pulsada alguna tecla.El re- 
sultado es el cará:ter representado por la te- 
cla. Si no se ha pulsado ninguna tecla, el resul 


tado es "x", o sea una cadena vacÍa. 


Indica la parte entera del número x. x — INT x 
Indica la parte de x detrás de la coma. 


Indica la longitud de la cadena xó. 
Resulta el logaritmo natural del número x 


Unión lógica. La expreslón es 0, cuando 
x<>0 y 1, si vale x=0 


Unlón lógica. x OR y significa que como 
mínimo x Ó y deben ser ciertas. 


Indlca el valor del Byte en la dirección INT(x) 
Representa la constant 3.14159265.... 

Resulta 1, si para el punto x,y se fijó un color 
de primer plano, y O, sl este punto representa 


un color de fo.do. Tlene que valer 0<= x <= 255 
y O<= y <= 175, 
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Indica un número pseudoaleatorio que resulta ma- 
yor o igual a cero y estrictamente menor que 


uno.» 
Un número (pseudo) aleatorio entre a y b es pro- 
ducido por el comando a + (b-a)*RND(nunca será 
igual a b). 

SCREEN$ Resulta el carácter situado en la línea x y co- 
lumna y. Si el carácter no puede ser reconocido 
, se edita una cadema vacÍa.+ 

SGN x Resulta el signo de la variable x. El resultado 
es -1 si x<0, 0Osi x=0, y 1 si x>0. 

SQR x Resulta la ralz cuadrada de x 

STR$ x El número es trantformado en una cadena. 

TAN x Tangente de x en radlanes 

USR x Actlva una rutina escrita en código máquina, 
cuya dirección inicial está en x 

USR x$ Indica la dirección para la configuración de 
Bits de un carácter propio definido. 

VAL x$ Indica el valor numérico de la cadena x$ 

VALS x5 Indica el valor numérico de la sadema x5 
nuevamente como cadena 

< E Cambla de signo la variable x 

El Spectrum puede realizar las sigulentes operaciones 


binarlas: 


AdIlción de números o concatenación de cadenas. 


Sustracción 
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<> 


Multiplicación 


División 


Potenciación 


Igualdad 


Mayor que 


Menor que 


Mayor o ¡igual 


Menor o ¡gual 


Des1Igual 
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Con el Interface 1, el juego de comandos del Spectrum se 
amplía. Existen ahora 15 Streams (o corrientes), señallzadas 
con los números 1 hasta 15. Además existen siete formas de 
canales (Channels), que se denominan: "k" para terlado, "s" 
para pantalla, "p" para Impresora, "+" para interface RS232 
de texto , "b" para el interface RS 232 binario , "n" para 
la red y "m" para los Microdrives. Son posibles los 
siguientes comandos: 


CAT x Indica el contenido en el casette del 
Microdrive x. La lista se edlta alfa- 
béticamente. Además se indica el nom- 
bre de la casette y el espacio de memo- 
rla libre en Kbytes. 


CAT 42z;x Indica el contenido de la -asette del 
Microdrive x a través de la corrlente z 


CLOSE A x Descone:ta todos los canales de la co- 
rriente x. Si aún quedan datos en la 
memoria intermedia (bufter), estos se 
transmiten (en la Red) o se registran 
(en el Microdrive). 


ERASE "ml; xt Borra el fichero con nombre f del ca- 
sette del Microdrive x 


FORMAT "m" ; x; f Formatea el casette del Microdrive x, o 
sea que lo prepara para su empleo en 
BASIC. En ello se asigna el nombre í a 
la casette, que se edita junto con el 
contenido. Si la casette estaba escrita 
se borran todos los Jdatos. 


FORMAT "n";5x Astgna al Spectrum el número x en la 
red. 
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FORMAT "+"; x 


FORMAT "b";x 


INKEYAx 


INPUT Ax; y 


LOADF.... 


MERGE*... 


MOVE a TO b 


OPEN Xx, y 


PRINT XXo... 


ante- 


Fija la velocidad de transmisión de da 
tos a través de la conexión RS232 en 
Baudios, X.X puede ser un valor de 50, 
110, 300, 600, 1200, 2400, 4800, 9600 ú 
19.200 


Como FORMAT "+";x. Para el canal +t- y b- 
la velocidad de transmisión ( Baud) es 
siempre Igual 


Indica el carácter que viene de la co- 
rriente x+ Si no existe ningún carác 
ter, se devuelve la cadena vacía, o 
sea "", 


Una mignitud y es introducida a través 
de la corriente. La opción LINE tam-- 
blén es posible aquí. 


Carga un programa, datos o Bytes del 
canal especificado. Sólo están permi- 
tidos los canales "b", "n" y "m". Todas 
las opciones que se conocen del LOAD nor 
mal, están permitidas. 


Como el MERGE ordinario, sólo desde el 
canal especlíicado 


Transmite datos desde la fuente a hasta 
el destono b. No es necesario abrir un 
canal antes,o cerrarlo después de este 
comando. 


El canal y es enlazado con la corriente 
x+AsT es posible la entrada y salida en 
BASIC a través de este canal. Corrien- 


tes permitidas son "k", "s'" y "p" 


Ejecuta una salida hacia la corriente 
especificada. Este debe ser abierto 


riormente como corriente de salida. 
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SAVEX... 


VERIFTE. .. 


Almacena un programa, datos o Bytes para 
canal especificado. Sólo los canales "b" 

"np" y "b" pueden ser utilizados. Todas 
las opcionss del Save 'normal' están per 
mitidas. 


Como el VERIFY 'norma!',sólo que los da- 
tos vienen del canal especificado 
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APENDICE 2: INFORMES 


Cada vez que el Spectrum ha llevado a cabo un comando o un 
programa, surge un Informe en la parte ¡inferior de la 
pantalla. Este informe consiste en un código y una 
explicación corta, la cual facillta la búsqueda del error. 


Por regla general, el Informe más deseado es '0  0K, 
L(línea): Cícomando)'. Esto quiere decir que la operación ha 
sido realizada de la forma deseada y que no ha surgido 
ningún error formal. Pero desgraciadamente surgen con 
frecuencia otras ¡ndicaciones. La lista siguiente contiene 
todas las indicaciones: 


0 OK - Transcurso con éxito del programa 


1 NEXT without FOR 
En este caso existe el final de un bucle, pero el ¡ini- 
cio, o sea el comando FOR, ha sido olvidado. 


2 Variable not found 
En conjunto con una variable simple, este error surge 
cuando la variable ha sido utilizada, antes de ser de- 
finida con LET, READ o INPUT. Cuando se trata de un 
campo, este error surge cuando el comando Dim ha sido 
olvidado. 


3 Subscript wrong 
Una variable de campo tlene un subíndice erróneo res- 
pecto al que fue determinado con el comando LET o 
DIM. 


4 Out of memory 
La capacidad de memoria del Spectrum no es suficiente. 


5 Out of screen 
Con un comando INPUT se produjeron más de 23 líneas 
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en la parte inferior de la pantalla, o un comando 
PRINT exIge un número de línea más alto que 2l. 


Number too big 

En un cálculo surge un número mayor que 10 elevado 

a la 38a. potencia. Cas! siempre sucede esto al divi- 
dir por un número, que tiene asignado el valor 0. 


RETURN without G0 SUB 
El programa se encuentra con un RETURN sin haber re- 
cibido antes un comando GO SUB. 


End of file 
El final de un fichero ha sldo encontrado. Esto sólo 
tiene importancia para usuarlos de MlIcrodrives. 


STOP Statement 

El programa ha sido interrumpido por STOP. Si se 
Introduce CONTINUE, el programa sigue un comando 
después del STOP. 


nval ld argument 
El argumento de una función matemática no es válido 


nteger out of range 
Un número entero ha resultado demaslado grande 


Nonsense ¡in BASIC 
Un comentario no muy agradable para programadores de 
BASIC. La expresión calculada por VAL no es válido 


BREAK - CONT repeats 

El programa fue interrumpido pulsando la tecla BREAK, 
Si se introduce CONTse repite el comando Interrump!do, 
a diferencia del caso de la indicación L 

(ver más abajo) 
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Out of DATA 

Se pretenden leer más magnitudes con un comando READ 
que fueron introducidos con DATA. A veces sólo se ha 
suprimido un RETURN. 


Invalid file names 
Se ha intentado grabar un fichero sin nombre o con un 
nombre de más de 10 caracteres. 


No room for line 
No hay capacidad en memorla para la sigulente línea 
de programa. 


STOP ¡in INPUT 
Un comando INPUT fue contestado con la tecla STOP. 
CONTinue repite el comando INPUT, 


FOR without NEXT 
El principio de un bucle se efectúa a través de FOR, 
pero el Spectrum dice que falta el final con NEXT. 


invalid 1/0 device 
Dispositivo de entrada o salida no válido para un 
Microdrive 


Invalid colour 
El número introducido para un color no es válido 


BREAK into program 

Entre la ejecución de dos líneas, el programa ha 
sido interrumpido pulsando la tecla BREAK. En este 
caso, introduciendo CONTinue, la siguiente orden es 
ejecutada. 


RAMTOP no good 
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El número Indlcado para RAMTOP es o muy grande, o 
muy pequeño. 


Statement lost 
Se indica un salto hacia un comando, que ya no existe. 


Invalid streams 
Al utilizarr Microdrives ó el Interface 1, se ha in- 
troducido un comando de corriente no válido. 


FN without DEF 
Ha sido utilizada una función, sin ser definida antes 
por DEF FN 


Parameter error 

En una función definida por DEF FN, se ha Introducido 
una cantidad equivocada o un tipo erróneo de paráme- 
tros. 


Tape loading error 


Un error de lectura al cargar o verificar de un 
casette. 
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Si 


Vd. ha conectado un Interface 1 al Spectrum, éste puede 


producir 21 Informes de error más: 


Code error 

Se ha intentado cargar con un comando LOAD un bloque de 
código más grande que el área de destino especificada 
por su sentencia LOAD 


Drive 'wrlite' protected 
El intento de escribir en un casette protegido ha 
fallado(sin la lengueta de plástico) 


File not found 

El fichero que se ha de cargar con LOAD no existe,o no 
puede ser leído completamente. El último caso surge, 
cuando la casette esta deterlorada,o cuando un fichero 
no se ha cerrado debidamente. 


Invalid device expression 

Una unidad ha sido especificada con una letra diferente 
a las permitidas:s,p,k,m,n,t o b. Este error puede sur— 
gir cuando al especificar un canal s, p, ok, se ha es- 
crito un punto y coma en lugar de una coma. 


Invalid name 
A un fichero no se le ha asignado ningún nombre, o el 
nombre tiene más de 10 caracteres. 


Invalid station number 

A una estación de ¡ed se le ha asignado un número 
menor que O, o mayor que 64, o con el comando FORMAT 
se ha utilizado un número menor que 1 o mayor que 64. 


Invalid stream number 


Se ha asignado un número menor que O o mayor que 15 a 
una corriente. 
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Merge error 

Se ha intentado mezclar datos y códigos. MERGE só- 

lo está permitido para programas, y aquí sólo pa- 

ra los que no fueron memorizados con un comando LINE. 


Microdrive full 

No hay más espacio en el cartucho de Microdrlve para 
ejecutar el comando SAVE. Un fichero posIblemente 
abierto, debería ser borrado del casette. 


Microdrive not present 

Se ha activado un Microdrive que contiene un casette 
sin formatear, que no contiene ningún casette, o no 
está conectado 


Missing baud rate 
Se ha olvidado de fljar la velocidad de transmisión 
en baudios con el comando FORMAT 


Missing drive number 
Al intentar acceder a un Microdrive, se ha olvidado de 
Introducir el número de éste 


Missing name 
El nombre de fichero no ha sido indicado 


Missing station mumber 
El número de estación no ha sido indicado 


Program finished 

Se ha intentado ejecutar una línea de programa que es 
mayor que la última existente. Este ¡nforme también 

surge cuando se ¡introduce RUN y no hay ningún progra- 
ma en la memoria. 
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Reading a 'write flle' 
Se ha intentado leer datos de un fichero que no exis- 
te o de uno que se abrió solamente para escribir. 


Stream already open 

Se ha intentado abrir una corriente, que ya está 
asignada a un nuevo canal (m,n,t Ó b). En este caso 
en primer lugar hay que cerrar la corrlente. 


Verification has failed 

Se ha detectado una diterencia entre un flchero memo- 
rizado y el correspondiente en la memoria durante la 
verificación. 


Writing to a 'read' flle 

Se ha intentado enviar datos nuevamente a un fichero 

ya existente,sin tratar de borrar el fichero antiguo. 
/ 


Wrong flle type 

El tipo de fichero no es adecuado para la operación 
deseada. Esto surge por ejemplo, cuando el Código se 
ha intentado como programa, o un programa se ha de 
tratar con MOVE. 
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MSX_EL MANUAL ESCOLAR 
P.V.P. 2.800,- ptas. 


Escrito para atumnos de los últimos cursos de EGB y de BUP, 
este libro contiene muchos programas para resolver proble- 
mas y de aprendizaje, descritos de una forma muy completa 
y fácil de comprender. Teorema de Pitágoras, progresiones 
geométricas, escritura cifrada, crecimiento exponencial, ver- 
bos irregulares, igualdades cuadráticas, movimiento pendu- 
lar, estructura de moléculas, cálculo de interés y muchas 
cosas más. 


CPC-464 CONSEJOS Y TRUCOS 
P.V.P. 2.200,- ptas. 


Ofrece una colección muy interesante de sugerencias, ideas 
y soluciones para la programación y utilización de su 
CPC-464: Desde la estructura del hardware, sistema de 
funcionamiento - Tokens Basic, dibujos con el joystick, 
aplicaciones de ventanas en pantalla y otros muchos intere- 
santes programas como el procesamiento de datos, editor de 
sonidos, generador de caracteres, monitor de código máqui- 
na hasta listados de interesantes juegos. 


MSX GRAFICOS Y SONIDOS, 250 pág 
PVP. 2.800,- ptas 


Las computadoras MSX no sólo ofrecen una relación precio/ 
rendimiento sobresaliente, sino que también poseen unas 
cualidades gráficas y de sonido excepcionales. Este libro 
expone las posibilidades de los MSX de forma completa y 
fácil. El texto se completa con numerosos y útiles programas 
ejemplo. 
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ROBOTICA PARA SU COMMODORE 64, 230 pág. 
P.V.P. 2.800,- ptas. 


En el libro de los robots se muestran las asombrosas 
posibilidades que ofrece el CBM 64, para el control y la 
programación, presentadas con numerosas ilustraciones e 
intuitivos ejemplos. El punto principal: Cómo puede construir- 
se uno mismo un robot sin grandes gastos. Además, un 
resumen del desarrollo histórico del robot y una amplia 
introducción a los fundamentos cibernéticos. 

Gobierno del motor, el modelo de simulación, interruptor de 
pantalla, el Port-Usuario cómodo del modelo de simulación, 
Sensor de infrarrojos, concepto básico de un robot, realimen- 
tación unidad cibernética, Brazo prensor, Oír y ver. 


TODO SOBRE EL FLOPPY 1541, 482 pág. 
P.V.P. 3.200,- ptas. 


La obra Standard del floppy 1541, todo sobre la programa- 
ción en disquettes desde los principiantes a los profesiona- 
les, además de las informaciones fundamentales para el 
DOS, los comandos de sistema y mensajes de error, hay 
varios capítulos para la administración práctica de ficheros 
con el FLOPPY, amplio y documentado Listado del Dos. 
Además un filón de los más diversos programas y rutinas 
auxiliares, que hacen del libro una lectura obligada para los 
usuarios del Floppy. 


MANTENIMIENTO Y REPARACION DEL FLOPPY 1541, 
200 pág. 
P.V.P. 2.800,- ptas. 


Saberse apañar uno mismo, ahorra tiempo, molestias y 
dinero, precisamente problemas como el ajuste del floppy o 
reparaciones de la platina se pueden arreglar a menudo con 
medios sencillos. Instrucciones para eliminar la mayoría de 
perturbaciones, listas de piezas de recambio y una introduc- 
ción a la mecánica y a la electrónica de la unidad de disco, 
hay también indicaciones exactas sobre herramientas y 
material de trabajo. Este libro hay que considerarlo en todos 
sus aspectos como efectivo y barato. 
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ZX SPECTRUM CONSEJOS Y TRUCOS, 211 pág. 
P.V.P. 2.200,- ptas. 


Una interesante colección se sugestivas ideas y soluciones 
para la programación y utilización de su ZX ESPECTRUM. 
Aparte de muchos peeks, pokes y USRs hay también 
capítulos completos para, entre otros, entrada de datos 
asegurado sin bloqueo de ordenador, posibilidades de 
conexión y utilización de microdrives y lápices ópticos 
programas para la representación de diagramas de barra y 
de tarta, el modo de utilizar óptimamente ROM y RAM. 


CPC-464 EL LIBRO DEL COLEGIO 
P.V.P. 2.200,- ptas. 


Escrito para alumnos de los últimos cursos de EGB y de BUP, 
este libro contiene muchos programas para resolver proble- 
mas y de aprendizaje, descritos de una forma muy compleja y 
fácil de comprender. Teorema de Pitágoras, progresiones 
geométricas, escritura cifrada, crecimiento exponencial, ver- 
bos irregulares, igualdades cuadráticas, movimiento pendu- 
lar, estructura de moléculas, cálculo de interés y muchas 
cosas más. 


ZX SPECTRUM EL MANUAL ESCOLAR 
P.V.P. 2.200,- ptas. 


Escrito para alumnos de los últimos cursos de EGB y de BUP, 
este libro contiene muchos programas para resolver proble- 
mas y de aprendizaje, descritos de una forma muy completa 
y fácil de comprender. Teorema de Pitágoras, progresiones 
geométricas, escritura cifrada, crecimiento exponencial, ver- 
bos irregulares, igualdades cudráticas, movimiento pendular, 
estructura de moléculas, cálculo de interés y muchas cosas 
más. 
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UN LIBRO DATA BECKER 
EDITADO POR FERAE MORET, 8.4. 


METODOLOGIA DE LA PROGRAMACION 
P.V.P. 2.200,- ptas. 


El primer libro recomendado para escuelas de enseñanza de 
informática y para aquellas personas que quieren aprender la 
programación. Cubre las especificaciones del Ministerio de 
Educación y Ciencia para Estudios de Informática. Realizado 
por un alto mando del ejército Español, un Dr. Ingeniero y 
Diplomado en Informática y profesor de la UNED y por un 
oficial técnico especialista en informática de gestión. Utiliza- 
do en todos los institutos politécnicos del ejército español. Es 
un seguro candidado a ediciones en lengua inglesa, alemana 
y francesa. Es el primer libro que introduce a la lógica del 
ordenador. Es un elemento de base que sirve como introduc- 
ción para la programación en cualquier otro lenguaje. No se 
requieren conocimientos de programación ni siquiera de 
informática. Abarca desde los métodos de programación 
clásicos a los más modernos. 


MANUAL ESCOLAR PARA SU COMMODORE 64, 351 pág. 
P.V.P. 2.800,- ptas. 


Este libro, escrito especialmente para escolares de grado 
medio y superior, contiene muchos interesantes programas 
de aprendizaje para solucionar problemas, descritos detalla- 
damente y de manera fácilmente comprensible. Facilitan un 
aprendizaje intensivo y ameno, con, entre otros, los siguien- 
tes temas: Teorema de pitágoras, progresiones geométricas, 
palanca mecánica, crecimiento exponencial, verbos irregula- 
res, ecuaciones de segundo grado, movimientos de péndulo, 
formación de moléculas; aprendizaje de vocablos, cálculo de 
interés y su capitalización. Una corta repetición de los 
elementos BASIC más importantes y una introducción a los 
rasgos esenciales del análisis de problemas, entre otros, 
completan el conjunto. 


64 EN EL CAMPO DE LA TECNICA Y LA CIENCIA, 296 pág. 
P.V.P. 2.800,- ptas. 


Ofrece un campo fascinante y amplio de problemáticas 
científicas. Para esto el libro contiene muchos listados 
interesantes: Análisis de Fornier y síntesis, análisis de redes, 
exactitud de cálculo, formateado de números, cálculo del 
valor PH, sistemas de ecuaciones diferenciales, modelo 
ladrón presa, cálculo de probabilidad, medición de tiempo, 
integración, etc. 


PEEKS 
POKES 


PARA 
COMMODORE 64 


UN LIBRO DATA BECKER 
EDITADO POR FERRE MORET, 8.0. 


Paulisson 


MANUAL 
DEL 
CASSETTE 


PARA EL 
COMMODORE 64 Y VIC.20 


UN LIBRO DATA BECKER 


EDITADO POR FERRE MORET, BA. 


Programas 


y 
Utilidades 


UN LIBRO DATA BECKER 
EDITADO POR FERRE MORET, 8.4. 


PEEKS y POKES, 177 pág 
P.V.P. 1.600,- ptas. 


Con importantes comandos PEEK y POKE se pueden hacer 
también desde el Basic muchas cosas, para las que se 
necesitarían normalmente complejas rutinas en lenguaje 
máquina. Este libro explica de manera sencilla el manejo de 
PEEKs y POKEs. Con una enorme cantidad de POKEs 
importantes y su posible aplicación. Para ello se explica 
perfectamente la estructura del Commodore 64: Sistema 
operativo, interpretador, página cero, apuntadores y stacks, 
generador de caracteres, registros de sprites, programación 
de interfaces, desactivación del interrupt. Además una in- 
troducción al lenguaje máquina. Muchos programas ejemplo. 


EL MANUAL DEL CASSETTE, 190 pág 
P.V.P. 1.600,- ptas. 


Un excelente libro, que le mostrará todas las posibilidades 
que le ofrece su grabadora de casettes. Describe detallada- 
mente, y de forma comprensible, todo sobre el Datassette y la 
grabación en cassette. Con verdaderos programas fuera de 
serie: Autostart, Catálogo (¡busca y carga automáticamente!), 
backup de y a disco, SAVE de áreas de memoria, y lo más 
sorprendente: un nuevo sistema operativo de cassette con el 
10-20 veces más rápido FastTape. Además otras indicacio- 
nes y programas de utilidad (ajuste de cabezales, altavoz de 
control). 


MSX PROGRAMAS Y UTILIDADES, 1985, 194 pág. 
P.V.P. 2.200,- ptas. 


El libro contiene una amplia colección de importantes 
programas que abarcan, desde un desensamblador hasta un 
programa de clasificaciones deportivas. Juegos superemo- 
cionantes y aplicaciones completas. Los programas mues- 
tran además importantes consejos y trucos para la programa- 
ción. Estos programas funcionan en todos los ordenadores 
MSX, así como en el SPECTROVIDEO 318 328. ESTRACTO 
DEL CONTENIDO: Volcado memoria hexadecimal. Editor 
gráficos. Editor de sonido. Escritura de ordenador. Lista 
referencia de variables. Calendario. Desensambladc;. ADMI- 
NISTRACION de una colección de discos L.P. HOLLOW - 
JUEGO DE LAS CEREZAS. DIAGRAMAS DE BARRAS. 
TABLAS DEPORTIVAS. 


LENGUAJE MAQUINA PARA 
COMMODORE 64, 1984, 201 pág. 
P.V.P. 2.200,- ptas. 


¡Por fin una introducción al código máquina fácilmente 
comprensible! Esiructura y funcionamiento del procesador 
6510, introducción y ejecución de programas en lenguaje 
máquina, manejo del ensamblador, y un atractivo muy 
especial: ¡un simulador de paso a paso escrito en BASIC! 


UN LIBRO DATA BECKER 
EDITADO POR FERRE MORET, 5.4 


LENGUAJE MAQUINA PARA AVANZADOS 
CBM 64, 1984, 206 pág. 
P.V.P. 2.200 ptas. 


¿Ud. ha logrado iniciarse en código máquina? Entonces el 
«nuevo English» le enseñará cómo convertirse en un profe- 
sional. Naturalmente con muchos programas ejemplo, rutinas 
completas en código máquina e importantes consejos y 
trucos para la programación en lenguaje máquina y para el 


trabajo con el sistema operativo. 


UN LIBRO DATA BECKER 


HDYADO POR PERAL MONET, 8.4. 


EL CONTENIDO: 
ZX-SPECTRUM CONSEJOS Y TRUCOS contiene una 
interesantísima colección de sugestivas ideas y solu- 
ciones para la programación y utilización de su 
ZX-SPECTRUM. 


Extracto del contenido: 


— 64 Caracteres por línea 

— Entrada de datos asegurada sin bloqueo del 
ordenador 

— Mastermind 

— Representación gráfica de un mapamundi 

— Posibilidades de conexión y utilización de 
microdrives y lápices ópticos 

— Programa para representación de diagramas de 
barra y de tarta 

— Control de stocks y ventas 

— Fichero clientes 

— Programa para obtener un display publicitario 

— y, por supuesto, con multitud de PEEKs, POKes, 
USRs, y el modo de utilizar óptimamente ROM y 
RAM 


ESTE LIBRO HA SIDO ESCRITO POR: 

Dr. Peter Bosetti, Físico de la Universidad de Aachen. 
La falta de agilidad en la realización de programas en 
los grandes ordenadores le llevaron al ZX Spectrum, 
el cual le fascinó de tal modo, que decidió hacer 
públicos mediante este libro sus conocimientos, ideas 
y trucos. 


e, — 
fe Bes COL. 


013: 
ISBN 84-86437.10-5 Mo 


